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Encore un nouveau 
mois mais peu de 
nouveauté en ce 
qui concerne les 
fanzines. 
Les esprits 





at 
Jacques de A onautes 


es 
ry les Aubrais | 
_ CRE "S 





ci il y a de nouvelles rubriques 

qui, je l'espère, ne seront pas 
trop dépassées lorsqu'elles paraî- 
tront. 


L "AFC est toujours là et ce mois- 


A ce sujet, si vous avez vous aussi 
des infos n'hésitez pas à les envoyer 
à l'AFC., elles seront insérées dans la 
rubrique Fanz'infos. 


AFC : 9, Allée d'Ozonville 91200 
Athis-Mons. 


Un peu de publicité pour deux fan- 
änes ayant déjà eu les honneurs de 
Fanz'infos : Le petit Electro-Jack il- 
lustré, avec ses listings en BASIC et, 
Game Over, qui traite principale- 
ment des consoles ainsi que des 
fanzines . 





Sd, D 


| ion 0 
ResaCIRT 





Comme à leur habitude, voici un 
fanzine très pro, et complet, qui dé- 
passe le monde des CPC avec ses 
reportages, ses rubriques musiques et 
cinéma... Il contient aussi des inter- 
views, des tests jeux et solutions, des 
documentations techniques (OXFORD 
PAO), une rubrique fanzines….. et 
puis. le plus simple est de le com- 
mander à : 


















AMSNORD 
36, rue du Docteur Martin 
59262 Sainghin en Melantois 











Joignez un timbre à 4 F pour les frais 
de retour. Le numéro 15 vient de sortir 
et passe en apériodique, sortie plani- 
fiée tous les 2 mois. 
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Le dessin de couverture est plutôt bien 
réalisé mais ce que l'on remarque tout de 
suite, c'est que l'âme du Croco n'est pas 
un freeware : 10 Frs c'est la somme qu'il 
vous faudra débourser pour obtenir le fanz'. 
A l'intérieur, la présentation est du style «lis- 
ting» c'est-à-dire sans utilisation d'un logiciel 
de PAO. La BD centrale apporte un peu de 
décor dans un ensemble plutôt austère. 
Vous trouverez également des jeux où y faut 
vachement réfléchir (c'est pas pour moi 
quoi) ainsi que des trucs et astuces. 

Eh dites, les gars, il va falloir faire un effort 
pour mettre plus d'illustrations et améliorer 
la présentation. N'oubliez pas que la con- 
currence est rude et souvent. gratuite. 





Jacques Modoux 
58800 Hery 
















C'est un fanz' assez récent, 
puisque la 1ère édition est sortie 
en septembre 91. Réalisé par 
Starcomputer, G-G et Fonzy. 
Vous découvrirez sur ce disc : 
Inter we you, Assemb l'heure, 
Luces (solutions de jeux), pub, 
news, dos scié (bidouilles à re- 
vendre, avec une magnifique 
présentation animée). Ce 2ème 
numéro contient déjà des ani- 
mations, de très Jolis rasters et 
de la musique bien sûr | Alors 
comme crie ma voisine : ‘Il est 
tout frais... il est tout frais. 
commandez le |”. Fidèle à 
l'Image des fanz', c'est un 
freeware. || vous suffit donc 
d'envoyer 1 disc et 1 timbre à 
4F à l'adresse sulvante : 


RASTER 

Jérôme BELLET 

4, rue de Bellevue 
73500 MODANE 
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Un fanzine disc intéressant 

avec des tests de jeux, de dé- 
mos, un interview de L. B.C.,une 
rubrique news, etc. Les graf's 
sont très soignés. 
Bien sûr, vous consulterez le tout 
en musique. Et si vous êtes cur- 
rieux, vous trouverez dans ce 
fanz une foule de petites routi- 
nes. Dommage que la petite 
taille de l'écriture ne facilite pas 
la lecture. Z80 paraît tous les 2 
mois en freeware, l'édition n°4 
est prévue pour la fin septem- 
bre. Les auteurs de ce complot 
sont Cobra, Bob, Bart. Condi- 
tions d'envoi : 1 disc + 1 enve- 
loppe timbrée à 4F. 


«Z80» 

Hervé GODART 

51, bd Foch 

62120 AIRE SUR LA LYS 









BIBLIOTHEQUE 
DES FANZINES 


ous recherchez un numéro 
\/ d'un fanzine qui n'existe plus, 
vous aimerlez trouver un 
exemplaire que même le créateur 
du fanzine n'a plus en réserve... 
Alors contactez-nous, nous possè- 
dons déjà prés de 600 numéros dis- 
que où papier III Pour recevoir la 
liste envoyez 3,80 F en timbres (tarif 
en vigueur) et une enveloppe auto- 
adressée à l'adresse suivante : 
«B.L.F.» 
Mr LERAY Philippe 
17, avenue Jules MARQUIS 
91220 BRETIGNY SUR ORGE 


OÙ écrivez sur le 36.15 RTE"AMSTEL 
en bal NEOFYT 


INFO'S 
UN VRAI 


ette nouvelle rubrique est 
( un vrac d'infos! Elle a pour 

but de vous informer sur le 
monde des fanzines, des démoma- 
ker's, des groupes... etc. 
Nouvelles de l'étranger: le club rou- 
main RANISTRAD a lancé un SOS 
softs, matériel en tout genre, dis- 
quettes, revues … Ils leur est impossi- 
ble de trouver quoi que ce soit en 
Roumanie, même pas de disquet- 
tes, encore moins CPC-INFOS | 
Nous avons donc décidé d'organi- 
ser une chaîne de solidarité de 
grande envergure, les magasins 
AUCHAN sponsorisent cette action, 
d'autres suivront peut-être. Pour 
cela nous faisons appel à vos dons... 
une vieille disquette, de vieilles re- 
vues qui paralysent votre placard. 
Nous acceptons aussi les dons en 
chèques où espècel 
Pour faire votre B.A. contacter 
AMSNORD. 


Vous cherchez des démos alleman- 
des , une bonne adresse : 
CC-DEMO serviceline, MORGEN- 
ROTH Chris - Nevenbaumer Weg 72 
05600 

WUPPERTAL 1 - DEUTCHLAND 


FANZINES 


gné d'une édition disc (joindre 

à la commande). M. ROSSI Jé- 
rôme, 7, gde rue 54150 MANCE 
MICRO DREAM recherche des ré- 
dacteurs. Contacter M. HERBERT Lu- 
dovic, 11,rue Wickram 68000 COL- 
MAR. 
AMS'DEM Vient de sortir son numéro 
2. 
CARTOON passe sur disc dès le nu- 
méro 2. 
MEGAZINE support disc à partir du 
n°3 en freeware, n'oubliez pas le 
timbre à 4F. 
DISC FULL produit Une édition pa- 
pier en supplément de la version 
disc. N.M.B. (New Micro Best) est un 
nouveau fanzine de 32 feuilles. Il est 
édité tous les 2 mois . Conditions : 
2F. + 1 timbre à 4F. M. ENTEM Sté- 
phane 15, ter chemin des petites 
fontaines 78250 TESSANCOURT. 
RESET arrête son fanzine à partir du 
n°8. 


F REEWARE n°10 sera accompar- 


DEMOS 


ARADOX prépare une méga- 
P démo avec une partie en 3D 
et un menu-jeu, elle s'appel- 
lera la PARADISE DEMO et sortira en 
septembre. La GOZEUR 5 
est prévue pour septembre. GOZEUR 
nous prépare une compil. 
La sortie de la CLUDDY DEMO est 
éminente, d'après les préviews elle 
va concurrencer THE DEMO. 
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La MICRO DEMO de 77 TOP et PA- 
RADOX est disponible, une petite 
démo sympathique. 

Si vous voulez des démos : 

CLUB SCREEN , M.DETTORI Patrick 11, 
rue du Casino 83230 BORMES. 


CHUCHOT'S 


à 


VIRUS. 
AMSNORD possède deux nouveaux 


NEXYS du groupe PARADOX 
(anciennement SEYOU) vient 
renforcer l'équipe du fanz’ 


membres : Gilles ancien rédacteur 
de STRAD et THIE rédacteur de 
ALL OF NORD. 


RASTER 3 recevra une intro de TOM 
& JERRY. 
MEBC (S. Demazure) assemblera 


FANATIC 7 prévu pour fin septem- 
bre. 

CPC VRAI (fanz') possède le plus 
Jeune rédacteur chef : 13 ans. 
YNEXYS code une super intro pour 
le fanzine : ESCAPE n°4. 


Si vous avez des infos, news à faire 
connaître contacter PROXY par 
minitel 

3615 RTE*"AMSTEL bal : AFC. 


PROXY 


ne REY fe 


TECH'INFOS 


de lecteurs ayant de gros pro- 

blèmes techniques. Il arrive 
également souvent que la réponse 
à ces problèmes passe par la con- 
sultation d'ouvrages spécialisés 
dans ce domaine. Mais, vous le sa- 
vez tous, les editeurs, jadis si prolifi- 
ques, dédaignent maintenant le 
CPC presque autant qu'Amstrad lui- 
même. 
Donc, J'ai pensé pouvoir faire profi- 
ter de ces connaissances livresques 
les lecteurs qui en sont privés. Pour 
cela, J'ai besoin de vous : il faut me 
faire part de vos problèmes par 
courrler et J'espère pouvoir résou- 
dre ceux-ci en répondant le plus 
complètement possible. Bien sûr, il 
n'est pas question de traiter plusieurs 
fols le même sujet, il est donc né- 
cessalre de conserver les anciens 
numéros de CPC Infos pour ne pas 
être démuni. 
Pour commencer, je vais traiter une 
lettre d'un lecteur qui demande 
comment charger un programme 
en langage machine. 
Il y a bien sûr plusieurs méthodes 
mais la plus simple est encore de 
passer par les vecteurs systèmes. 
Ces vecteurs sont en fait des adres- 
ses en mémoire qui contiennent 
eux-mêmes l'adresse d'un petit 
programme (c'est un tout petit peu 
plus compliqué en réalité mais le 
principe reste le même). 
Ce petit programme exécute en 
général une fonction simple. Mais 
pourquoi se compliquer la vie avec 
des adresses pointant sur des 
adresses, alors qu'il suffirait de poin- 
ter directement sur ces dernières 
pour obtenir le même résultat ? Eh 
bien, pour de simples et bonnes rai- 
sons de compatibilité. Ainsi si le pe- 
tit programme est modifié par Ams- 
trad, par exemple, et si l'adresse de 
départ est modifiée, au lieu de faire 
une nouvelle version de votre pro- 
gramme, vous conservez les mêmes 


J e recois souvent des courriers 


vecteurs et seule l'adresse conte- 
nue dans ceux-ci est conservée. De 
la même façon, les mémoires mor- 
tes des CPC 464, 664 et 6128 sont 
différentes, seuls les vecteurs sont 
semblables et assurent la compati- 
bilité. Ainsi par exemple, le CALL 
&BB06 très souvent employé pour 
stopper un programme et attendre 
l'appui sur une touche, correspond 
à 2 adresses différentes selon votre 
version de CPC : &1A3C pour le 464 
et &1BBF pour les autres. 
Maintenant la question est : quels 
sont les vecteurs à utiliser pour 
charger un fichier. 

En fait, il y en a trois : &BC77, &BC83, 
&BC7A. 

Elles correspondent à des petits 
programmes capables d'ouvrir, de 
lire, puis de fermer un fichier en lan- 
gage machine. Pourquoi en langa- 
ge machine ? Eh bien parce que 
ces routines nécessitent des para- 
mètres devant être transmis dans les 
registres du microprocesseur. Mais 
commençons par les plus simples : 
&BC77 et &BC7A. 

La première routine est intitulée par 
la documentation technique «Disk 
in open». Comment utiliser cette 
routine ? Il faut d'abord fournir le 
nom du fichier, sa longueur et l'em- 
placement d'un espace de mé- 
moire pour charger des données. 
On ne peut bien sûr pas utiliser un 
registre pour stocker le nom du fi- 
chier, on se contente d'indiquer une 
adresse à laquelle on trouvera les 
caractères du nom plus ceux de 
l'extension, dans le registre HL, la 
longueur du nom est elle introduite 
dans B et enfin l'adresse du buffer 
est fournie par DE. Il ne reste alors 
qu'à faire un CALL &BC77 pour 
«ouvrir « le fichier. Voir le program- 
me en Assembleur (1). 

Le même en basic : 

10 FOR N=&A000 to &A000+20 

20 READ AS:POKE N,VAL («&n+A$) 
30 NEXT N 


40 DATA 21,0C.A0,06,09,11,16,A0 

50 DATA CD,77,BC.C9,65,73,73 61 
60 DATA 69,2E,62,61,73 

ll suffit, après avoir exécuté le pro- 
gramme, de faire CALL &A000 pour 
ouvrir le fichier «essal.bas». À condi- 
tion d'avoir auparavant créé ce fi- 
chier car sinon, Il Y aura un messa- 
ge d'erreur. 

Après l'exécution de ce program- 
me et si tout s'est blen déroulé, vous 
pouvez récupérer des résultats. 
Dans le registre A on trouve en effet 
le type de fichier et dans HL l'adres- 
se du header. 

Pour résumer : 

DISK IN OPEN (&BC77) 

Conditions d'entrée : adresse du 
nom dans HL, longueur du nom dans 
B, adresse du buffer dans DE 
Résultats : Si Carry=0 et Zéro=0 alors 
erreur car Un fichier est déjà ouvert 
en lecture. 

: Si Carry=0 et Zéro=1 alors erreur 
car le fichier n’a pas été trouvé. 

: Si Carry=1 et Zéro=0 alors À con- 
tient le type de fichier (&00=BASIC, 
&01=BASIC protégé, &02=binaire, 
&03= binaire protégé, &16=ASCI) , 
HL contient l'adresse du Header, DE 
contient l'adresse de départ (&170 
pour les fichiers BASIC) et BC abrite 
la longueur du fichier (&00 pour les 
fichiers ASCII). 

Le header est un en-tête contenant 
des données importantes sur le fi- 
chier qui vient d'être ouvert. Voicl 
la description du Header qui com- 
prend 64 octets : 

Les octets O à 15 contiennent le nom 
du fichier. C'est plus que n'autorise 
Amsdos pour les noms de fichier (12 
caractères avec le numéro user), 
mais il ne faut pas oublier que ce 
header est le même pour les fichiers 
sur cassette qui eux, peuvent utiliser 
jusquà 16 caractères. 

Les octets 16 et 17 ne sont pas utill- 
sés pour les disquettes. Ils indiquent 
le numéro de bloc actuel lors du 
chargement d'un programme sur 


Programme 1 


LD HLNOMFICH 
LD B.BUF-NOMFICH 
LD DE.BUF 

CALL &BC77 

RET 

DEFM essai.bas 
DEFS &800 


NOMFICH: 
BUF: 


Programme 2 


LD HL.,&4000 


CALL &BC83 
RET 





K7. 

L'octet 18 contient le type de fichier 
(voir plus haut) 

Les octets 19 et 20 contiennent le 
nombre d'octets du bloc actuel. 
Ces données sont sans signification 
pour les fichiers sur disques. 

Les octets 21 et 22 renferment 
l'adresse de chargement du pro- 
gramme. Cette valeur est égale à 0 
pour les fichiers ASCII. 

L'octet 23 n'est pas utilisé pour les 
disquettes, il Indique que le bloc lu 





: Adresse du nom dans HL 

: Longueur du nom 

: Adresse du buffer de 2048 octets 
: Appel à la routine 

: Retour au BASIC 

: Nom du fichier 

: Emplacement du buffer 





: Adresse de chargement 
des données 

: Appel de la routine 

: Retour au Basic 


est le premier (travail sur K7) et sa 
valeur est toujours &FF. 

Les octets 24 et 25 indiquent la lon- 
gueur du fichier sauf pour les fichiers 
ASCII qui peuvent dépasser 64 Ko 
(ces octets contiennent alors O). 
Enfin les octets 26 et 27 contiennent 
l'adresse d'exécution du program- 
me, utile surtout pour les fichiers bi- 
naires. 

Les octets restants sont inutilisés et 
peuvent être employés à votre usa- 
ge personnel. 
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L'autre routine &BC7A est appelée 
Disk in close. Comme son nom l'in- 
dique, elle ferme le fichier aupara- 
vant ouvert avec &BC77. On l'utilise 
lorsque l'on veut passer à la lecture 
d'un autre fichier. 

Cette routine est très simple d'em- 
ploi puisqu'elle ne nécessite pas de 
paramètres : Un CALL &BC7A est 
suffisant. 

Vous avez certainement remarqué 
que nous savons ouvrir un fichier, le 
fermer mais Il nous manque la routi- 
ne qui permet la lecture du fichier. 
Cette routine, c'est Disk in direct 
(&BC83). 

Lorsque l'on veut lire un fichier, il faut 
commencer par l'ouvrir avec la 
routine &BC77, puis il faut préciser 
l'adresse de chargement des don- 
nées dans HL. 

Voir le programme en Assem- 
bleur (2). 

L'adresse &4000 est un exemple, 
Vous uütiliserez les données récoltées 
lors de l'ouverture du fichier pour 
placer la bonne adresse. Voici la 
version Basic du programme : 

10 FOR N=&A000 to &A000+6 

20 READ AS:POKE N,VAL («x&»+A$) 
30 NEXT N 

40 DATA 21,00,40,CD,83,BC,.C9 

ll faut bien sûr avoir ouvert un fichier 
avant de lancer la routine par CALL 
&A000. 


allo 
CPC infos 


Attention, notez bien ce qui suit: 
Dès le mois de septembre, tous les mercredis 


de 14 h à 17 h, la rédaction se tiendra à votre 
disposition au 99 52 98 11 pour tous renseigne- 
ments techniques. En dehors de ce créneau les 
réponses techniques se feront par courrier (n’ou- 
bliez pas de menticnner votre adresse et joignez 
un timbre pour la réponse) ou bien par Minitel 
sur le 3615 code : MHZ. 





Lots d'anciens numéros 

Une affaire pour votre Amstrad! 
des dizaines d'articles (is 
et de programmes, 

12 Numéros d'Amstar&. 


CPC + CPC années 85 à 90 à 


12 Numéros d’Amstar 
années 87 à 90. 
55 Francs + 30 francs de pot. 


NAN ON: 


IRKelellKe;=à /0ts en solde. 





Bon de commande Nom: Prénom: 
Je commande Adresse : 


Q 12 numéros de CPC pour 55 F+30Fport  Codeposid: Vie: 
Q 12 numéros d'Amstar pour 55 F+ 30F port  Dae: Signature N 


I 
I 
I 
I 
| JE REGLE PAR CARTE BANCAIRE 
: 
I 
L 


= 





DR CE DE 2 CO NE EC ON LS 






e joins mon règlement 
chèque postal Q 


chèque bancaire Q 
mandat Q 









Date d'expiration | l | l | Signature 








Retournez ce coupon, accompagné de votre chèque libellé à l'ordre des Editions SORACOM - La Haie de Pan - 35170 BRUZ 


Le 


MISE AU POINT 
DE FORMATAGES 








Je reviens une ultime 
fois (pour l'instant) sur 
les formatages spéciaux 

de disquette. Le 
programme proposé, 
intitulé MAPFORMA, 
est une aide à la 
conception de 
formatages, puisqu'il 
permet de tenir à jour 
un petit fichier de 
formatages, pour 
lesquels il fait tous les 
calculs, et surtout de 
créer les lignes Basic de 
Datas définissant un 
DPB. 


uelque chose vous échap- 
Q pe ? Alors (re)lisez mon arti- 
cle «TRUCS POUR L'EXPLOI- 
TATION DE.» dans CPC Infos n°34 
de Juillet, où sont décrits les forma- 


tages sur CPC. 


MISE EN ROUTE 


1) Tapez le fichier CREEFMT et sau- 
vez-le. Exécutez-le ensuite : un court 
instant passe, puis est sauvegardé 
sur la disquette mise au préalable 


Yannick GOUR 


Valable pour CPC 664 - 6128 


dans le lecteur le fichier Ascii 
MAPFORMA.DAT, qui contiendra vos 
formatages. C'est à faire une fois et 
une seule évidemment : après c'est 


MAPFORMA.BAS qui gère 
MAPFORMA.DAT. 
2) Tapez le programme 


MAPFORMA.BAS et sauvegardez-le 
sur la même disquette que 
MAPFORMA.DAT. 


3) Remettez à zéro le CPC, puis lan- 
cez MAPFORMA.BAS. Inutile de dire 
tout de même comment faire. Le 
programme réserve lors de la pre- 
mière exécution de la place pour 
les transferts de fichiers et ensuite se 
construit en quelques secondes 
l'unique écran du programme. On 
voit s'afficher dans l'ordre : 


-le titre 

- les options avec les touches-clés 

- les paramètres du DPB 

- les formatages lus dans le fichier 
MAPFORMA.DAT 


Finalement, après quelques très 
courts instants s'affichent les Valeurs 
des paramètres FDC et le formata- 
ge du haut (DATA à l'origine) passe 
en vidéo inverse. Pour ceux aux- 
quels les couleurs déplairaient, elles 
sont définies en DATAs en ligne 2340. 


LES FONCTIONS 
D'EDITION 


Ce sont des fonctions de gestion de 
la liste des formatages. Comme ces 
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commandes sont assez triviales, les 
touches associées ne sont pas indli- 
quées à l'écran. De plus la place 
était chère, alors. 


1) Touches curseur haut et bas 
déplacement vers le haut ou le bas 
dans la liste. A chaque fois qu'on 
change de formatage, le nouveau 
apparaît seul en vidéo inverse et ses 
paramètres remplacent évidem- 
ment les précédents. On sélection- 
ne donc ainsi le formatage sur le- 
quel opèreront toutes les comman- 
des à gauche de la liste. On remar- 
quera vite que la liste est circulaire 
et qu'on passe de haut en bas et 
vice versa. 


2) Touches curseur gauche et droi- 
te : déplacement vers le haut ou le 
bas dans la liste pour dupliquer le 
formatage actif. Le fond est bleu 
pastel ou foncé. On détermine ainsl 
une position dans la liste où on co- 
piera le formatage alors actif. On 
peut déplacer indépendamment 
ces curseurs (vidéo inverse et fon- 
cé) que je qualifierai de “sélection” 
et “duplication”, mais si le curseur 
de sélection passe sur celui de du- 
plication, ce dernier disparaît alors. 
Le curseur “duplication” part tou- 
jours du curseur “sélection”. 


2) Touche ENTER ou Return (2 cas se 
présentent) : 


- pas de curseur de duplication : 
c'est alors pour donner où changer 
le nom du formatage actif. Le nom 
est demandé dans la fenêtre de 
communication en bas à gauche. 


Pas plus de 10 signes (lettres, chif- 
fres, espace et les caractères auto- 
risés pour les noms de fichier AMS- 
DOS). Le dernier caractère peut être 
effacé avec la touche DEL. SI on 
n'entre pas de nom, en tapant di- 
rectement ENTER, alors le nom n'est 
pas modifié. Pour effacer en quel- 
que sorte le nom, il faut entrer un 
espace. Si donc on a tapé un nom, 
alors il remplace après validation 
l'ancien. 


- curseur de duplication actif : il 
s'agit alors de copier le formatage 
actif à la position du curseur dupli- 
cation”. Pour éviter un recouvre- 
ment par erreur de formatage, une 
confirmation est demandée. Toute 
autre réponse que «O» annule le 
processus. Sinon le format actif 
prend la place de celui éventuelle- 
ment présent sous le curseur “dupli- 
cation” : on le constate par la dis- 
parition de ce curseur et l'afficha- 
ge à sa place du nom du format 
actif. 


3) Touche DEL : sert à effacer de la 
liste le formatage actif. Attention : 
cette fonction n'est opérante que 
s'il n'y a pas de curseur “duplica- 
tion”. Là encore Il faut confirmer la 
demande, étant donné l'irréversibi- 
té de la fonction. Le nom, les para- 
mètres et les numéros de secteurs 
(tout |) sont en effet perdus. 


DEFINITION 
DU FORMATAGE 


Définir un formatage, c'est définir 
son DPB pour l'AMSDOS. L'utilisateur 
peut tout définir du DPB hormis le 
Flag LoGin (FLG), qui est toujours à 
255 (c'est la volonté du program- 
meur et non une contrainte du 
DOS). Pour fixer les valeurs des 16 
paramètres restants (n'oublions pas 
que BCT et FTO sont variables et ré- 
servés au DOS, ce qui explique leur 
absence de la liste des paramètres), 
ll suffit de donner 10 valeurs. Exami- 
nons-les dans l'ordre de leur tou- 
ches-clés, qui est l'ordre numérique : 


0) Nombre de pistes : de manière 
générale, aussi ne le dirai-je qu'une 
fois puisque c'est valable pour les 9 
fois suivantes, apparaissent dans la 
fenêtre de communication/dialo- 
gue un libellé de la valeur à donner 
(«Nombre de pistes :» Ici), puis une 
Indication de l'intervalle de défini- 





tion de la valeur (entre 1 et 80 ici, 
signifié par une mise entre crochets 
des valeurs extrêmes autorisées). 
L'espèce de E arrondi entre le nom 
de la variable et l'intervalle signifie 
“appartient à” : on lit ici que N, le 
nombre de pistes, appartient à 1- 
80. Autrement dit l'utilisateur est 
censé ne rentrer qu'une valeur dans 
l'intervalle autorisé. Enfin est de- 
mandée la valeur. Le nombre peut 
être entré en base dix (notation 
usuelle) ou en base hexadécimale. 
ll faut alors qu'il débute par le ca- 
ractère «&», comme en BASIC. Dans 
chaque base ne sont autorisés que 
les caractères nécessaires pour 
écrire les “chiffres” (0-9 en base 10: 
0-9 et A-F' en base 16). Le dernier 
caractère peut être effacé par DEL. 


lci est demandé le nombre de pistes 
que reconnaîtra le formatage. 
Comme le savent ceux qui ont bien 
lu mon article cité en avant-propos, 
le DOS ignore le nombre de pistes 
et ne connaît que le nombre de 
blocs (avec d'autres paramètres : 
taille de bloc, taille de secteur et 
nombre de secteur par piste). Ce- 
pendant j'ai jugé plus agréable et 
plus pratique de considérer le nom- 
bre de pistes car on définit en gé- 
néral un formatage d'après la dis- 
quette utilisée pour (40 pistes ou 42 
ou 80). 


Si on valide sans avoir rien entré, 
alors le processus est annulé. Donc 
si on a sélectionné par erreur une 
commande attendant une entrée, 
quelle qu'elle soit, l'appui de ENTER 
l'annule. Le texte associé disparaît 
naturellement de la fenêtre. 


Si la valeur entrée est correcte (et 
dans l'intervalle et compatible avec 
les autres), alors tous les paramètres 
qui en dépendent sont calculés et 
la liste des valeurs à l'écran est re- 
mise à jour. Enfin le contenu de la 
fenêtre de dialogue est effacé. 


Si la valeur entrée est hors intervalle 
(ce qui est de l'étourderie) ou si elle 
est incompatible avec les autres 
paramètres du DPB (ce qui est 
beaucoup plus délicat à détermi- 
ner), alors s'affiche pendant environ 
2.5 secondes, à la place du texte 
de la commande, le message terri- 
blement laconique «Attention aux 
valeurs I», Laconique en effet caril 
ne sera pas donné d'indication sur 
la cause de l'invalidité. Que c'est 
méchant pensez vous. Que nenni : 
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si on conçoit bien son formatage, Il 
n'y a pas de raison qu'une erreur 
arrive. Et surtout la description des 
entrées de valeurs pour le DPB va 
en fait consister à indiquer les caur- 
ses d'irrecevabilité. Enfin Il y aura 
plus loin un formulaire garanti sans 
erreur pour les as du calcul mental 
ou de la calculette. 


Refus pour le nombre de pistes 
(hormis la valeur hors intervalle, ce 
qui ira de sol aussi pour les 9 valeurs 
suivantes) : 

- O0 secteur par piste 

- taille de secteur nulle (pas encore 
définie) 


Pas plus dans ce cas que dans les 
suivants je ne justifieral les causes 
d'irecevabilité ou ne les détaillerait. 
Pour s'en faire une Idée, consulter 
le FORMULAIRE (dernier chapitre) et 
le listing, surtout pour les opérations 
effectuées après si la valeur est cor- 
recte. Qu'on se le dise. 


1) Nombre de secteurs par piste : 


Refus pour : 

- dépassement de la capacité 
d'une piste (5120 octets), c'est-à- 
dire taille secteur trop grande pour 
ce nombre 

- GAP3 de formatage trop grand 

- les numéros de secteur ne reste- 
raient pas sur la même “seizaine” 
(XO à XF) 


2) Taille de bloc : 


Une remarque qui vaut pour ici 
comme pour les paramètres où sont 
demandées des valeurs non consé- 
cutives (ici 1,2,4 ou 8 : pour les sec- 
teurs 512,1024,2048 ou 4096, etc...) : 
toute valeur différente de celles 
prévues est ramenée à la plus pro- 
che inférieure. 


Par exemple pour une taille de sec- 
teur, 700 sera ramené à 512. 


Refus pour : 
- taille de bloc inférieure à taille de 
secteur 


3) Taille de secteur : 


Refus pour : 

- dépassement de la capacité 
d'une piste, c'est-à-dire nombre de 
secteurs trop grand pour cette taille 
- faille supérieure à celle d'un bloc 


4) Nombre d'entrées au directory : 


Refus pour : 
- taille de répertoire correspondan- 
te Inférleure à 1 bloc 


5) Premier secteur : 


Refus pour : 
- les numéros de secteur ne reste- 
ralent pas dans la même “seizaine” 


6) Decalage de piste : pas d'erreur 
décelée à part le “hors intervalle”. 
Falre attention à ne pas mettre un 
décalage qui, avec le nombre de 
pistes, ferait aller au delà de la car- 
pacité de la disquette (40, 42 où 80 
piste). 


7) GAP 3 de lecture/écriture : 


Refus pour : 

- ce GAP ferait plus de 0.8 fois celui 
de formatage. C'est un rapport ar- 
bitralre. Plus Il est grand, plus les ris- 
ques de problèmes sont grands. 


8) GAP 3 de formatage : 


Refus pour : 

- ce GAP serait supérieur au maxi- 
mum autorisé par le nombre et la 
taille des secteurs (cf formulaire) 

- ce GAP serait moins de 1.25 fois 
(1/0.8) supérieur au GAP de lecture/ 
écriture 


9) Octet de remplissage : pas de 
raison que cela coince si la valeur 
est dans l'intervalle possible. 


C'est en forgeant qu'on devient 
forgeron. Ne soyez pas effrayé par 
ces possibilités d'irecevabilité. Avec 
un peu de pratique on surmonte 
l'obstacle en quelques essais : his- 
toire d'expérience. Le chapitre 
«EXEMPLE DE MISE AU POINT DE 
FORMATAGE» est là pour guider. On 
a fini avec définition du DPB. Voyons 
le reste. : 


AUTRES FONCTIONS 


Les fonctions restantes sont d'usa- 
ges très divers. Examinons les dans 
leur ordre à l'écran : 


O) Ordre des secteurs : si le DPB suf- 
fit à l'exploitation d'un formatage 
par le DOS, il faut cependant con- 
naître en plus l'ordre physique des 
secteurs sur une piste pour formar- 
ter. Ce programme reconnaît 3 or- 
dres, que l'on va montrer avec un 
formatage à 10 secteurs (C1-CA) : 





0) CI.C2,C3,C4,CS,C6,C7,C8,C9,CA 
1) C1.C6.C2,C7,C3,C8.C4,C9,C5,CA 
2) CI1.C3,CS,C7,C9,C2,C4,C6,C8,CA 


L'ordre O est l’ordre numérique. 
L'ordre 1 est celui des formats stan- 
dard, où on intercale les éléments 
de la 2ème moitié de la liste (en 
ordre numérique) entre ceux de la 
première. L'ordre 2 est obtenu en 
écrivant d'abord les secteurs de 
même parité que le premier. Ce 
dernier ordre peut être indispensar- 
ble pour des lecteurs du genre 5°1/ 
4 à 80 pistes, qui tournent trop rapi- 
dement avec l'ordre standard (on 
obtient avec des WRITE FAILED). 
Dans le fichier original 
MAPFORMA.DAT, les formatages 
DB1-198K et DB2-198K utilisent cet 
ordre pour Un 5°1/4 80 pistes (cha- 
que face physique de 400 KO est 
divisée en 2 faces logiques de 200 
KO, grâce au décalage de 40 de la 
deuxième). 


Lorsqu'on presse ©, un message in- 
dique le fonctionnement. Dès qu'on 
presse ENTER, les secteurs apparais- 
sent dans leur ordre original. Avec 
les touches curseur on passe d'un 
ordre à l'autre. ENTER valide l'ordre 
affiché et la fenêtre est effacée. 


A noter que l'ordre n'est pas stocké 
dans le fichier MAPFORMA.DAT. 
Après que les formatages aient été 
lus, le programme identifie les or- 
donnancements. En cas a‘échec 
dans l'identification, il attribue l'or- 
dre numérique, O. 


S) Sauvegarde du fichier des formar- 
tages : entrer S pour lancer la sau- 
vegarde. Toute autre entrée stop- 
pe le processus. Seuls les fornatages 
dont le nom a été défini sont sau- 
vegardés : cela explique qu'on ne 
puisse pas effacer un nom de for- 
matage (sinon apparemment en le 
remplaçant par un espace). Atten- 
tion à ne pas oublier d'indiquer un 
nom pour un formatage | 


Après sauvegarde du nouveau fi- 
chier MAPFORMA.DAT il y a efface- 
ment de la fenêtre de dialogue et 
poursuite en attente de comman- 
de. 


) Impression des lignes de DATA 
définissant le formatage, soit nom, 
paramètres DPB et ordre des sec- 
teurs : encore une fois il y a deman- 
de de confirmation. Plus la peine 
de revenir là-dessus désormais. 
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Si l'imprimante n'est pas prête (bit 6 
du port B = &F500 mis, pour les spé- 
cialistes hardware), alors s'affiche 
pendant environ 2.5 secondes le 
message ‘Imprimante pas prête l” 
avec ordre d'interrompre le pro- 
cessus. 


Sinon s'impriment les lignes de DA- 
TAs telles qu'elles seront sauvées en 
fichier Basic-ASCII. Encadrés par des 
lignes de REM on trouve le nom, puis 
les paramètres du DPB vraiment au 
standard du CP/M, puis les para- 
mètres restant liés au CPC, puis les 
secteurs pour l'ordre en vue de for- 
matage. Par exemple : 


1000 * 

1010 DATA «DATA» 

1020 DATA 0024,03.,07,00,00B3,003F.00C0,0010,0000 
1030 DATA C1.09.2A.52.F5,02.04.00.00 FF 

1040 DATA C1,C6.C2,C7,C3.C8,C4C9.C5 

1050 * 


Telles quelles ces lignes peuvent être 
directement utilisées pour l'utilitaire 
de formatage FORMAT+. 


D) numéro de la première ligne des 
lignes DATAs (cf exemple juste 
avant) : il suffit d'indiquer un numé- 
ro entre 1 et 60000. Les lignes seront 
numérotées de 10 en 10. 


A) sauvegarde des lignes de DATA 
définissant le formatage actif sous 
forme de fichier Basic ASCII : ces 
lignes sont celles qui sont imprimées 
comme déjà indiqué. On donne un 
nom pour le fichier ASCII qui les 
contiendra. Plus tard il n'y a qu'à 
fusionner ce fichier au programme 
de son choix (FORMAT+, utilitaire 
d'installation de DPB du type de 
BOOT-DPB.BAS - cf CPC 34 de juillet) 
avec MERGE “nom de fichier”. 
Rappelons au passage que la fonc- 
tion MERGE fonctionne même avec 
un 464, du moment que le fichier 
fusionné soit en ASCII. L'usage de la 
commande A signifie l'aboutisse- 
ment d'une mise au point de for- 
matage et sera certainement la 
moins utilisée. 


R) Résumé du format : affichage 
dans la fenêtre de dialogue d'un 
“résumé” du format de manière as- 
sez parliante. C'est une manière ra- 
pide de vérifier ce qu'on a fait. 


- il y à ignorance de la commande 
si le formatage n'a pas été nommé. 


- | y a message d'erreur si le nom- 
bre de secteurs par piste ou si la 


taille de secteur n'a pas été défi- 
nie. 


- sinon on obtient ce qu'on désirait. 
L'affichage est de la forme (pour 
DATA) : 


40 pistes (00-39) - 180 KO 
9 sect. (C1-C9) de 512 oct. 
bloc de 1 KO - DIR de 2 KO 


“SI le nombre de pistes n'a pas été 
défini, Il n'y a pas de capacité d'in- 
diquée. 

‘SI le nombre d'entrées donne une 
taille de répertoire inférieure à 1 
bloc, alors on IIt «DIR ?7?». 


Cet affichage persiste jusqu'à l'en- 
trée d'une nouvelle commande. 
Personnellement, Il correspond à ce 
que Je “pose” quand je définis un 
formatage, à savoir : 

- le nombre de pistes 

- la capacité d'une piste, ce qui 
donne la capacité de la disquette 
et le nombre et la taille des secteurs 
- la tallle de bloc 

- la taille du répertoire (y en 
auralent-ils qui ne sauraient toujours 
pas que c'est le DIRECTORY ?) en 
KO ou en nombre d'entrées (32 oc- 
tets l'entrée) 


Grâce à cette commande vous 
pourrez rapidement faire le tour des 
formatages du fichier original 
MAPFORMA.DAT et vous testerez 
votre sagacité en découvrant 
l'usage des formats non standards. 


Et voilà le tour des commandes est 
presque terminé. La dernière est la 
commande de terminaison de la 
session de travail, c'est ESC I L'écran 
est effacé et mis en MODE 2. Le 
programme peut être relancé par 
RUN. Le fichier MAPFORMA.DAT est 
lu à nouveau, etc... En cas d'arrêt 
accidentel (étourdi, val) et alors 
qu'on n'a pas déjà sauvegardé le 
fichier des formatages (S). il faut 
faire (avant altération ou efface- 
ment de variables) GOSUB 1550 
pour appeler directement le sous- 
programme de sauvegarde (ouf 1). 


EXEMPLE DE MISE 
AU POINT 
DE FORMATAGE 


Supposons qu'on veuille mettre au 
point le formatage suivant : 





40 pistes (00-39) - 200 KO 

5 secteurs de 1024 octets 

bloc de 1 KO - DIR de 2 KO (64 en- 
trées) 


1) on se place sur une “case libre” 
de la liste et on entre le nom du 
formatage : c'est facultatif à cet 
instant mais autant le faire avant. 


2) entrer le nombre de secteurs par 
piste (1): 5 


3) entrer la taille de bloc (2): 1 
4) entrer la taille de secteur (3): 1024 


5) entrer le nombre d'entrées au di- 
rectory (4): 64 


6) entrer le nombre de pistes (0): 40 


7) entrer le GAP 3 de formatage (8): 
&60 


8) entrer le GAP 3 de lecture/écritu- 
re (7): &30 


9) entrer le décalage de piste (6): 
00 


10) entrer le numéro du premier 
secteur (5): &70 


11) entrer l'octet de formatage (9): 
&ES 


Le DPB proprement dit est créé. Le 
parcours est presque imposé des 
étapes 1 à 4. Ensuite c'est libre, sauf 
que la 7 doit précéder la 8 la pre- 
mière fois. 


Il ne reste plus qu'à choisir l'ordre 
des secteurs. On peut alors vérifier 
son travail par le “résumé”, choisir 
le numéro de ligne, imprimer pour 
constater le résultat (heureux pos- 
sesseurs d’une imprimante !) et sau- 
vegarder le fichier ASCII correspon- 
dant pour usage ultérieur, sans 
oublier évidemment de sauver le 
nouveau fichier des formatages. 


FORMULAIRE 


Le formulaire va vraiment mériter 
son nom en n'étant qu'un ramassis 
de formules. On va y retrouver tou- 
tes les formules déjà données pour 
les calculs de DPB dans le CPC Infos 
34, et d’autres qui en sont tirées et 
sont très utiles. Cela simplifiera la tà- 
che de celui qui se plongera dans 
la compréhension du programme. 
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L'unité d’un paramètre, s'il en a 
une, est indiquée entre parenthè- 
ses : o pour octets, KO pour Kilo- 
Octets et b pour bloc. 


On définit les paramètres sulvanits : 
- NBP : nombre de pistes 

- TC : taille du catalogue, ou réper- 
toire, ou DIRECTORY 

- TB : taille de bloc 

- TS : faille de secteur 


SPT=PST"2ABPS=PST*RPS 
BSH=LOG(TB(o)/128)/LOG(2) 
BLM=2ABSH-1 

EXM=TB(KO)-1 
DSM=((NBP*SPT°128)/TB(o))- 
1=((NBP*SPT)/(BLM+1))-1 
DRM=(TC(KO)"32)-1 
TC(b)=(DRM+1)/ 
(4"2ABSH)=(DRM+1)/(32*"TB(KO)) 
CKS=(DRM+1)/4 
BPS=LOG(TS(0)/128)/LOG(2) 
RPS=2ABPS=TS(o)/128 


TB(KO)=(21BSH)/8 
TS(0)=128"21ABPS=128"RPS 
NBP=((DSM+1)"TB(o))/ 
(SPT*128)=((DSM+1)"(BLM+1))/SPT 


Enfin pour le calcul du GAP 3 ma- 
mum possible, Je me suis basé sur la 
description d'une organisation de 
piste donnée dans LE LIVRE DU LEC- 
TEUR DE DISQUETTE de Micro-Appli- 
cation (1985) pages 171-177: 


- 6250 octets maximum 

- 146 octets d'information pour la 
piste 

- 62 octets d'Information pour cha- 
que secteur 


D'où la formule pour GAP3 ma- 
mum': 


GAP3=FIX(((6250-146)/PST)-62- 
(128*RPS)) 


Cette formule est utilisée telle quel 
le dans la fonction GAP3. On n'a 
pas effectué la sosutraction (6250- 
146) pour des facilités de modifica- 
tion, si certains voulaient donner une 
plus grande capacité (qui sait si elle 
n'existe pas ?) pour avoir de plus 
grands GAPs. Rappelons enfin que 
la fonction FIX supprime la partie 
décimale. 


CONCLUSION 


Ce programme de Mise Au Point de 
FORMatages (et jeu de mot anglais 
en plus) devrait simplifier a vie de 





I marques) 
l de typet(s) 
a l'adresse ci-contre Nom: 


ceux à qui la conception de formar- 
tages spéciaux posailent des pro- 
blèmes, si ce n’est qu'elle ne les re- 
butait, à cause de la complexité de 
certains calculs. Une fois encore le 
programme fait tout (à part bien sûr 
entrer les données caractéristiques 
de formatages). Grâce à lui on n'a 
même plus à créer ses DATAs pour 
le DPB et c'est là l'essentiel de ce 
genre d'utilitaire : simplifier la "vie” 





à son utilisateur. J'espère qu'il inci- 
tera encore plus de monde à expé- 
rimenter dans ce domaine très inté- 
ressant et très fructueux même des 
formatages spéciaux. Désormais le 
lecteur de CPC Infos a tous les outils 
en main : 


MAPFORMA : mise au point de for- 
matage et création des DATAs. 


FORMAT+ : formatage au format de 
son choix. 

TRANSFIL : transfert de fichiers entre 
tous formats. 

Routines et Minis-programmes de 
CPC Infos 34 : exploitation des dis- 
quettes à formatage spécial. 


Que demander de plus ? Bons “for- 
matages” | 


LE SPECIALISTE DE 


Mmrltlie vnl: 


notre CATALOGUE 
des éducatifs 


Les details des logiciels 


les tarifs 


catalogue gratuit 


nn 7 
Q Je désire recevoir le catalogue des éducatifs, possédant es 
| un ordinateur(s) de 








Adresse: 


Code postal: 








Ville: 


A envoyer à SORACOM Editions - BP 88 - 35170 BRUZ 
SCI LOC OT QUIL ERATES 
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MAPFORIMA BAS 


IUAMITECHE LITE EEE EEE EEZEES) >RB 
118 ‘+ Mise Au Point de FORMAtages # RC 
128 ‘+ pour CPC 464, 664 et 6128. x )RD 
138 ‘* copyright Yannick GOUR 1991 * RE 
[UT AMEZTETEET EEE ETC ES TETE CET >RF 
158 ’ RG 
169 ? )RH 
178 ‘auxx INITIALISATIONS #44 JR] 
189 ? >RK 


198 1F PEEK(#)<)9 THEN POKE 8,8:CALL &BB#9:SYHBOL AFTER )FY 
98:0PENOUT* x" :MEMORY HIMEM- 1 : CLOSEDUT 
289 CALL &BBPB:DEFINT a-z:nf=12:DIM xt(29),yt(29),1d$(2 DEE 
9), choix$(29),nest(29,2),non$(nf),fat$(nf),nosct(nf,11) 
,paran(nf,16),1p(16),nbp(nf}, 10$(9) 
219 ’ )RD 
228 ‘constantes (ou non) RE 
236 spt=#:bsh=1:bla=2:exe=3:dsa=4:dra=5:al8=6:cks=7:off DVE 
z8:fsc=9:pst=19:gls=11:g1t=12:f1b=13:bps=14:rps=15:f1g= 
16:c=1:n0!=18898:dant-CHR$(297) :eff$=SPACES (18) :FOR i=2 
48 TO 243:id$(#)=id$(#)+CHR$(i):NEXT: id$(ÿ)=id$ (8)+CHR$ 
(13)+CHR$(127) 
248 car$(8)="#$4"+-9123456789"éè":FOR 1=65 TD 9ÿ:car$(9 DHL 
)=car$(9)+CHR$(1):NEXT:car$(1)=car$(8)+" " 
258 ? >RH 
268 ‘encres et fenetres )RJ 
276 READ i,n,k,s:INK B,i:INK 1,n:1NK 2,k:INK 3,s:BORDER DHZ 
i:MODE 1:VHILE vO7:READ w, i,n,d,0,v,s:WINDOWE, i,n,d, 
o:PAPERNw, v: PENXw, 5 : NEND 
288 )TA 
298 "fonctions )TB 
388 DEF FN hors(a,b,x)=(x<a) OR (x)b):DEF FN nora(x)=2" >KD 
FIX(LOG(x)/LOG(2)):DEF FN GAP3(p,r)=(6258-146)/p-62-128 
#r:DEF FN deci$(a)=HEI$(163(açi8)+(a MOD 19),2):DEF FN 
pain$la, b)=CHR$(14)+CHR$(a)+CHR$(15)+CHR6 (D) :DEF FN nol 








e 
$(a!)=MID$(STR$(a!),2)+" " 


318 ? RE 
328 ’sysboles pour messages >RF 
338 SYHBOL ASC("*"),38,112, 192,248, 192,112,38,8:SYNB0L )FV 
ASC(*°*),68, 48,48, 48,48, 48,68,9:SYHBOL ASC("$"),69, 12, 1 


2,12,12,12,68,8 

349 ? RH 
359 RJ 
368 *#44x CREATION DE L'ECRAN ##41 )RK 
378 TA 
388 ’affiche titre )TB 


398 ORIGIN #5,9,9, 448,352, 489:CLG 2:READ t,i,t$,r:TAG:PL >DK 
OT -9,8,r:NOVE (t-1)416-B,(26-i)416-2:PRINT t$; : TAGOFF 

asg RE 
418 ‘affiche choix RF 
428 CLSH6:READ xt(c),yt(c), id$(c),choix$(c):UHILE xt(c) DTE 
(99:LOCATE#6, xt(c),yt(c):PRINT#6,FN pain$(2,1);id$(c); 

FN pain$(9,1);":"sext(c)=xt(c)+2:PRINT#6, choix$(c) : id#( 
D)=id#(#)+idé(c):c=c+1:READ xtc),yt(c),id#(c),choix$(c 

) :WEND 

438 ? >RH 
448 ‘affichage des parass DPB et FDC )RJ 
458 CLSH3:FOR i=g TO 16:READ af, Ip{i):PRINT#3,a$+"=":NE )CB 
IT 

469 )TA 
478 ‘lecture des messages pour choix )TB 
488 i=B:VHILE mes$(i,8) O"FIN":READ i:READ mes$(i,9),me DEN 
s$(i,1),mes$(i,2) :WEND 

499 )TD 
588 ‘lecture des forsatages RF 
519 OPENIN"mapforma. dat":CLS#1:1$=STRINGS (12, dam$) :PRIN DVD 
TH, 185 :1=8: INPUTE9, non$ (i) 

529 MHILE nonf$(i)("FIN" AND fi<nf:fat$(i)=LEFT#(non$(i) NT 
,18):1=LEN(nont(i)):1F 118 THEN d=(18-1)/2:fat$(i)=SPA 
CE$(18-1-d)+non$(i)+SPACES(d) 

538 GOSUB 1939:PRINT#1,1$;:FOR j=8 TO 16: INPUT#9, param( >GL 
i,j):NEXT:nbpli)=(param(i,dsm)+1)#(paran(i,bla)+1)/para 
ati,spt):FOR j=1 TO paran(i,pst):INPUT#9, nosct(i, j):NEX 
T:GOSUB 1868:i=i+1: INPUT#9, nos {i) : VEND 

548 FOR j=i TO nf-1:non$(i)="":fat$(j)=eff$:PRINT#1, dan >HY 





$:SPCI 18); dant; 1$: :NEXT 


558 )TA 
568 ? )TB 
578 ‘aux MISE À JOUR #1 )TC 
588 ? )TD 
598 ‘identifie ordre secteurs )TE 
689 i=nf:FOR n=8 TO nf:1F nom$(n)="" THEN 638 ELSE para )FP 
a(i,pst)=paras(n,pst):paraa(i, fsc)=paran(n, fsc):FOR ord 

=£ TO 2:GOSUB 2128:cop=1:FOR k=1 TO paras(n,pst):1F nos 
ct(i,k)Onosct(n,k) THEN cop=#:k=48 

618 NEXT:1F cop=1 THEN nosct(n,#)=ord:ord=2 KG 
628 NEXT:IF cop=$ THEN FOR k=$ TO paras(n,pst):nosct(n, DNK 
K)=k:NEXT 

639 NEXT )EE 
648 ch=#:i=chfat:cop=ch:GOSUB 1998 >DH 
658 ? )TB 
668 )TC 
679 ‘taux MENU x##1 TD 
688 ’ )TE 
699 VHILE INKEY(66) NT 


788 CALL &BB93:cle$="":VHILE cle$="":cle$=INKEYS:VEND:c DYU 
le$=UPPER$S (cle) 

719 i=INSTR(id#(#),clet):0N i GOSUB 858,689, 868, 669,938 >GN 
, 998, 1949, 1898, 1148, 1198, 1248, 1298, 1338, 1379, 1418, 1458, 
1498, 1558, 1628, 1678, 1718, 1758 


728 MEND CH 
738 ? )TA 
749 CLS:NODE 2:CALL &BCB2:END XV 
758 "That's all folks! )TC 
768 ? )TD 
778 ? )TE 
768 "#wex CHOIX DU FORMATAGE #41 )TF 
798 ? )TG 
888 i=ch:GOSUB 1939:1F cle$=CHR$(249) THEN ch:(chtnf-1) >HC 
NOD nf ELSE ch=(ch+1) MOD nf 

818 IF i=cop THEN cop=ch )TI 
628 GOSUB 1898:RETURN >RD 
638 )TB 
848 "4x4 TRANSFERE FORMATAGE #44 )TC 
858 )TD 
868 i=cop:1F cle$=CHR$(242) THEN cop=(cop+nf-1) MOD nf DBY 
ELSE cop=(cop+1) MOD nf 

878 IF iC>ch THEN GOSUB 1938 V2 
688 1F copC>ch THEN LOCATE#1, 1, 22cop+2:PRINT#1, dant; FN DFV 
pain${8, 1);fat$(cop);FN pain$(1,2) ; dant 

898 RETURN AC 
989 ? >RK 
918 ‘##xx CHANGE NOM/DUPLIQUE #24 )TA 
928 ? )TB 


938 IF ch©cop THEN 958 ELSE a=1:1=19:c=1:GOSUB 2948:1F >LX 
1$="* THEN CLSAS:RETURN ELSE nonf(cop)=1#:fat$ (cop) =LE 

FT$(1$,18):1=LENC(I$):1F 118 THEN d=(18-1)/2:fat$ (cop): 

SPACE# (18-1-d)+1$+SPACES (d) 

948 GOSUB 1899:RETURN 

959 n=2:1=1:c=8:GOSUB 2848:1F 1$O"O"THEN CLS#5:RETURN 

ELSE fat$(cop)=fut$(ch):non$(cop)=nom$(ch):FOR i=$ TO 1 

6:paras(cop, i)=paran(ch, i):NEXT:nbp(cop)=nbp(ch):FOR i= 

8 TO 18:nosct (cop, i)=nosct (ch, i) :NEXT:CLS8S : i =cop :GOSUB 
1938: cop=ch:RETURN 


RG 
JJY 


969 ? )TF 
979 ‘xxx EFFACE FORMATAGE #44 TG 
988 ? TH 


998 IF ch€>cop OR non$(ch)="" THEN RETURN ELSF m=3:1=1: )TD 
c=#:GOSUB 2848:1F 1$="0" THEN fat${ch)=eff$:nos$(ch}="" 
:FOR i=8 TO 16:param(ch,i)=8:NEXT:nbp(ch)=8:FOR i=# TO 
18:nosct{ch, i)=8:NEXT 


1885 GOSUB 189B:RETURN RT 
1918 ? )XE 
1928 ‘xxsx NB DE PISTES x#x4 DIF 
1939 >XG 


1949 n=4:GOSUB 1998:1F 1$-""THEN CLSÉS:RETURN ELSE IF F )ZV 
N hors(1,68,1) OR paran(ch,pst)=8 OR paran(ch,rps)=8 TH 

EN 2898 ELSE nbp(ch)=l:paran(ch, dsm)=FIX(1#paras(ch, spt 
}/(param(ch,blm)+1)-1):GOSUB 1699:RETURN 


1858 )XJ 
1868 XK 
1878 ‘ausx NB DE SECTEURS #44 DYA 
1868 )YB 


1895 n=5:G0SUB 1998:1F 1$=""THEN CLSS:RETURN ELSE IF F )DR 
N hors(1,18,1) THEN 2998 ELSE IF (1*128#param(ch, rps))) 
5128 OR paras(ch,glt)>FN gap3(1,paran(ch,rps)) OR (para 
alch,fac)+1-1)ç6160paras(ch,fac)ci6 THEN 2808 

1188 paran(ch,pst)=1:paran(ch,spt)=1#paran(ch,rps):para >XU 
aCch,dsm)=FIX(nbp(ch)tparaa(ch, spt)/(paras(ch,bln)+1)-1 
l:i=ch:ord=nosct(i,#):GOSUB 2128:GOSUB 1898:RETURN 


1118 )XF 
1128 ‘anse TAILLE DE BLOC #a#x 6 
1138 >XH 


1148 n=6:G0SUB 1998:1F 1$=""THEN CLSÉS:RETURN ELSE IF F )GU 
N hors(1,4,1) THEN 2998 ELSE 1=FN norall):1F I<paraa(ch 

, FPS)/8 THEN 2998 ELSE paran(ch, bsh)=L0G(1#8)/L0G(2) : pa 
ras(ch,blm)=1#8-1:paran(ch,exm)=1-1 

1158 param(ch,dsa)=FIX(nbp(ch)#paran(ch, spt)/(paran(ch, )BV 
blm)+1)-1):tc=(param(ch, dra)+1)/4/(paran(ch,bla)+1):par 
an(ch,al#)=VAL("&X"+STRINGS (te, "1")4STRINGS(16-tc, "8")) 
:GOSUB 1898:RETURN 


1168 YA 
1179 "#wus TAILLE DE SECTEUR ###x )YB 
1188 )YC 


1198 n=7:GOSUB 1999:1F 1$=""THEN CLSS:RETURN ELSE IF F >PA 
N hors(512,4896, 1) THEN 2998 ELSE 1=1284FN norm(FIX(1/1 
28)):1F (paras(ch,pst)#1)25128 OR 1>128#(paran(ch,blm)+ 

1) THEN 2898 

1285 paran(ch,bps}=L06(1/128)/L0G(2):paran(ch, rps)=1/12 DUF 
8:paras(ch,spt)=1/128#paraa(ch, pst):paras(ch, dsa)=FIX(n 
bp(ch)æparan(ch, spt)/(paras(ch,bim)+1)-1):GOSUB 1898:RE 
TURN 


1218 )X6 
1228 ‘#xwx NB ENTREES AU DIRECTORY #xx3 >XH 
1238 3 


1248 n=8:GOSUB 1998:1F 1$=""THEN CLS#S:RETURN ELSE IF F DXJ 
N hors(16,256,1) THEN 2898 ELSE 1=FN nors(l):1F 1/32€2* 
paras(ch,bsh)/8 THEN 2898 

1258 paran(ch,dra)=1-1:tc=(paran(ch,dra)+1)/4/2"paras(c )ZC 
h,bsh):paran(ch,al#)=VAL("&X"+STRINGS (te, "1")+STRINGS (1 
6-tc,"#")):paras(ch,cks)=(paran(ch,dra)+1)/4:GOSUB 1898 
:RETURN 


1268 )YB 





1279 '#xux NO DU 1ER SECTEUR #43 
1288 ‘ )YD 
1299 n=9:GOSUB 1999:1F 1$=""THEN CLS#S:RETURN ELSE IF F >AD 
N hors(#,255,1) THEN 2998 ELSE IF (1ç16)C((1+paran(ch, 
pst)-1)ç16) THEN 2998 ELSE paran(ch,fsc)=1:GOSUB 1898:R 
ETURN 


»YC 


1398 >XG 
1318 "#æax DECALAGE DE PISTE ###3 >XH 
1328 »XJ 


1338 n=19:G0SUB 1999:1F 1$=""THEN CLSHS:RETURN ELSE IF NC 
FN hors(#, 79,1) THEN 289$ ELSE paras(ch,off)=1:GOSUB 18 
98:RETURN 


1348 ! YA 
1359 ’ax—a GAP 3 ECRIT/LIT #### )YB 
1368 )YC 
1379 n=11:G0SUB 1909:1F 1$=""THEN CLSHS:RETURN ELSE IF )XX 
FN hors(#,255,1) THEN 2898 ELSE IF 1)9.8#param(ch,git) 

THEN 2998 ELSE paras(ch,gls)=1:G0SUB 1898:RETURN 

1388 )YE 
1398 ‘awxx GAP 3 FORMATAGE ##4## YF 
1498 )XH 


1419 a=12:G0SUB 1998:1F 1$=""THEN CLSHS:RETURN ELSE IF )AR 
FN hors(#,255,1) THEN 2898 ELSE IF DFN gap3(paran(ch,p 
st),paras(ch,rps)) OR 1#9.6(paran(ch,gis) THEN 2898 ELS 

E paran(ch,git)=1:GOSUB 1898:RETURN 


1428 ? >XK 
1438 ‘xxtx OCTET DE REMPLISSAGE #41 YA 
1449 )YB 


1458 a=13:GOSUB 1998:1F 1$=""THEN CLS#S:RETURN ELSE IF )XQ 
FN hors(8,255,1) THEN 2899 ELSE paras(ch, f1b)=1:GOSUB 1 
898:RETURN 


1468 >YD 
1479 "aux ORDRE DES SECTEURS #34 )YE 
1488 YF 


1499 n=14:G0SUB 1968:VHILE INKEY$C>CHR#(13) :VEND:CLS#S: ZA 
PRINT#5,FN pain$(#,2):i=ch:ord=nosct(ch,#):GOSUB 2248:C 
ALL 4BB#3:k$="":VHILE k$OCHR$S(13) :k$=INKEYS 

1598 IF k$=CHR$(248) THEN ord=(ord+2) MOD 3:GOSUB 2248 DUC 
ELSE IF k$=CHR$(241) THEN ord=(ord+i) MOD 3:GOSUB 2248 


1518 VEND: nosct (ch, 8) =ord:CLSH5 : RETURN )JG 
1528 )YA 
1538 ‘xxx SAUVEGARDE FICHIER #44 »YB 
1548 ! )YC 


1555 a=15:1=1:c=9:G0SUB 2848:1F 1$C)"S" THEN 1589 ELSE )VP 
OPENOUT"sapforsa. dat":FOR i=$ TO nf-1:1F noa$(i)=®" THE 

N 1578 ELSE PRINT#9,non$(i):GOSUB 1868:FOR j-# TO 16:PR 
INT#9, paran(i, j)}:NEXT:GOSUB 1868 


1569 FOR j=1 TO paran(i,pst):PRINT#9,nosct(i, j):NEXT  DZT 
1578 NEXT:PRINT#9, "FIN" :CLOSEOUT >DH 
1588 CLS#5:RETURN >NG 
1598 )YH 
1688 ‘#xsx [IMPRIME LIGNES DE FORMAT ##4+ )XK 
1618 ? )YA 


1628 a=16:1=1:c=8:GOSUB 2848:1F 1$C>"O"THEN 1638 ELSE ! DWV 
F CINP(&F598) AND 64)=$ THEN GOSUB 219#:FOR i=8 TO 5:PR 
INTHB, lo$(i):NEXT ELSE CLS#S:LOCATER4, 2, 1:PRINTÉ4," ap 
risante pas prete! ":FOR 1=1 TO 2588:NEIT 

1638 CL5#5:RETURN 


NC 
1648 ND 











| 
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1658 ‘xxx NO LIGNE POUR DATAS ###4 )YE 
1668 )YF 
1678 a=17:GOSUB 1998:1F 1!=9 THEN 2899 ELSE no!:1!:CLS# >JV 
S:RETURN 

1688 >YH 
169$ "#wxx SAUVE LIGNES FORMAT EN ASCII ###3 NY] 
1798 DYA 
1718 a=18:1-8:c=8:G0SUB 2948:1F 1$=""THEN CLSIS:RETURN >KD 
ELSE GOSUB 219#:0PENOUT 1$:FOR i:9 TO 5:PRINT#9, lot(i): 
NEXT : CLOSEOUT :CLS#S : RETURN 

1728 DYC 
1738 #44 RESUME DU FORMAT ###4 >) 
1748 )YE 


1758 IF nos$(ch)=""THEN RETURN ELSE IF paraa(ch,pst)=# )EK 

OR paran(ch,rps)=# THEN 2998 ELSE PEN#5,2:1o$(8)=HID$(S 

TR$(nbp(ch}),2)+" piste":1F nbp(ch)>1 THEN lo$(#)=10$(8 
+5" 

1768 IF nbp(ch)>8 THEN lo$(8)=10$(#)+" ("+FN deci$(para DQL 

alch,off))+"-"+FN deci$(paran(ch,off)+nbp(ch}-1)+") -"+ 

STR$(FIX((paran(ch,dsa)+1)#2"param(ch,bsh)/8))+" K0* 

1778 IF paran(ch,pst))1 THEN lo$(1)=MID$(STR$(param(ch, 2KJ 
pst)),2)+" sect. ("+HEX$(paran(ch, fsc),2)+"-"+HEX$ (para 

alch,fsc)tparan(ch,pst)-1,2)+") de"+STR$(128+paran(ch,r 
ps))+* oct.":GO0T0 1798 

1788 1o$(1)="secteur "+HEX$(paran(ch, fsc),2)+" de"+STR$ >XQ 
(128+paran(ch, rps))+" octets" 

1798 1o$(2)="bloc de"+STR$(FIX(2"param(ch,bsh)/8))+" KO >JD 
- DIR ":i=FIX((paran(ch,dra)+1)/32):1F 1=8 THEN lo$(2) 
=10$(2)+"?22" ELSE lo$(2)=10$(2)+"de"+STR#((paraa(ch, dr 
n)+1)/32)+" KO" 

1898 FOR i=$ TO 2:LOCATERS, 1,1+i:PRINTHS, lo$(i) :NEXT:RE )GX 


1818 )YC 
1828 ? ) 
1838 ‘xarx ROUTINES DIVERSES ###4 )YE 
1849 ? )YF 
1868 ‘echange ootets de ALS (1) )YG 


1869 a=paran(i,al#):paran(i,al#)=UNT(256#(a AND 255)+C1 )JJ 
NT(a/256) AND 255)):RETURN 


1878 NI 
1888 ‘selection de format (i) >YK 
1898 i=ch:CLS#5 )FA 


1998 LOCATE#1,1,2#i+2:PRINT#1, dant; CHR$(24);fat$(i);CHR )ZR 
$(24) ; dant; :LOCATE#2, 1,1:paran(i,f1g)=255:FOR j=8 TO 16 
:PRINT#2,HEXS (paras(i, j), Ip(j)):NEXT:RETURN 

1918 ’ D 
1928 ‘deselection de forsat (i) )YE 
1938 LOCATE#, 1,24i+2:PRINT#1, dant ;fat$(i);dan$; :RETURN CB 


1948 
1958 ‘affichage de mess. choix (n) )YH 
1968 CLS#5:PRINT#5,FN pain$(1,2);mest(n,#);":":PRINTES, )AQ 
FN pain$(#,3);nes$(m, 1):PRINTÉS,mes$(n, 2) ; RETURN 

1978 DK 
1988 ’ INPUT de nombre )ZA 
1908 GOSUB 1968:PENSS, 1:1$="":k$="":VHILE k$C)CHRS(13): BW 
CALL &BBS3:k$="":VHILE k$="":k$=INKEYS: VEND: IF k$=CHRS( 
127) AND 1#C"®THEN 1$=LEFT#(1$,LEN(1$)-1):PRINTSS, CHRS 
(8);" ":CHRS(8); ELSE IF k$="&" AND 14="" THEN 1$=k$:PR 





INTAS,k$; 

2898 IF (k$>="9" AND k$<="9" AND LEN(1$)€5) OR (LEFT#(I DDJ 
$,1)="&" AND UPPER$(k$#)>="A" AND UPPER$(k$)<="F" AND LE 
N(1$)€5) THEN 1$=1$+k$:PRINT#S, UPPERS(k$) ; 

2818 VEND:IF INSTR(I$,"&")=9 THEN L'=HIN(VAL(1$),68888) >HH 
{ISUNT(H!) RETURN ELSE 1=VAL("8&#"+MID$(1$,2)):11=1:RETU 

RN 

2828 )XG 
2839 INPUT de nom (longueur 1,caras c) )XH 
2848 GOSUB 1968:PEN#S,1:1$="":k$="":VHILE k$CDCHRS(13): DUV 
CALL &BBS3:k$="":WHILE k$="":k$= INKEYS : VEND :k$=UPPER$(Ck 
$):1F k$=CHRS(127) AND 1$C""THEN 1$=LEFT#(1$,LENC1$)-1 
):PRINT#5,CHR$(8);" ":;CHR$ (8); 

2858 IF INSTR(car$(c),k$)<>8 AND LEN(I$)CI THEN 1$=1$+k >PW 


$:PRINTES, k$; 

2868 VEND:RETURN )HC 
2978 )YB 
2888 ‘argusent invalide )YC 


2898 CLS45:LOCATE#4, 1, 1:PRINT#4," Attention aux valeurs )MF 
! "FOR i=1 TO 2588:NEXT:CLS#5:RETURN 

2189 >XF 
2118 ‘ordre des secteurs (fat i,ordre ord) )XG 
2128 IF ord=$ THEN FOR j=1 TO paraa(i,pst):nosct(1, j)=j )ME 
-1:NEIT:RETURN 

2138 1F ord=1 AND (paras(i,pst) NOD 2)=9 THEN FOR j=8 T DHU 
0 paran(i,pst)-2:nosct(i,1+(2#5) MOD (paran(i,pst)-1))= 
j:NEXT:nosct(i, paran(i,pst))=j:RETURN 

2149 IF ord=1 THEN FOR j=8 TO paran(i,pst)-1:nosct(1,1+ >DA 
(2+j) MOD paran(i,pst))=j:NEXT:RETURN 

2158 IF ord=2 AND (paran(i,pst) MOD 2)=8 THEN FOR j=9 T >HC 
0 paras(i,pst)-2:nosct(1,j+1)=(2#j) MOD (paran(i,pst)-1 
):NEXT:nosct(i, j+1)=J:RETURN 

2168 IF ord=2 THEN FOR j=# TO param(i,pst)-1:nosct(1, j+ >GH 
1)=(2+j) NOD (paran(i, pst)):NEXT:RETURN 

2178 ! )YC 
2188 ’cree lignes DATA de format (ch) )YD 
2198 lo$(8)=FN nol$(no!)+*'":10$(1)=FN nol$(no!+18)+"DA )2Q 
TA "4CHR#(34)+non$(ch)+CHR$(34) :108(2)=FN nol$(no!+29)+ 
DATA “:1=ch:GOSUB 1869:FOR i=spt TO cks:108(2)=10$(2)+ 
HEX$(paraa(ch, i), Ip(1))+",":NEXT 

2288 lo$(2)=1o$(2)+HEX$(paran(ch,off),Ip(off)):i=ch:G0S >MA 
UB 1868:10$(3)=FN nol$(no!+38)+"DATA ":FOR i=fsc TO rps 
:10$(3)=1ot(3)+HEX$ (paran(ch,i),1p(i))+,":NEXT:10$(3)= 
10$(3)+"98,898,"+HEXS$ (paran(ch,f1g),1p(t1g)) 

2218 lot(4)=FN nolt(no!+48)+"DATA ":GOSUB 2278: 10$(4)=1 DKX 
0$(4)+15$:10$(5)=FN nol$(no!+58)+"" ":RETURN 

2228 DXJ 
2238 ‘ligne secteurs pour ordre >XK 
2248 GOSUB 212#:G0SUB 2278:LOCATE#S, 1,2:1F LEN(]s$)(28 QE 
THEN PRINT#S, 158 ELSE c=LEN(Is$):VHILE c>27 AND HID$(1s 
#,c,1)0",":c=c-1:WEND:PRINT#5,LEFTS(1s$,c) :PRINTAS, HID 


$(1s$,c+1) :RETURN 
2258 )B 
2268 ligne des secteurs 13$ (ch) )YC 


2278 1s$="":FOR k=1 TO paran(ch,pst)-1:1s$=1s$+HEX$(par DYL 
as(ch, fsc)#nosct(ch,k),2)+*,":NEXT:19$=18$+HEX$ (param(c 
h,fsc)+nosct(ch, paran(ch, pst}),2) :RETURN 

2288 

2298 


)YE 
DYF 
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2398 'xuxx DONNEES #44# >XH 
2318 ! »XJ 
2328 ‘encres et fenetres >XK 
2338 )YA 
2348 DATA 14,8,26,21 HT 
2358 DATA 8,1,48,1,25,8,1 RE 
2368 DATA 1,29,48,1,25,1,2 )RA 
2378 DATA 2,5,9,5,21,8,2 07 
2388 DATA 3,1,9,5,21,8,3 )QY 
2398 DATA 4,2,27,24,24,2,1 >RG 
2498 DATA 5, 1,28, 23,25,8,3 )RZ 
2419 DATA 6,11,27,5,21,8,1 )RV 
2428 DATA 7,1,1,25,25,8,8 RH 
2438 )YB 
2448 ‘titres et choix )YC 
2458 ? )YD 
2868 DATA 2,2,Mise au point de forsatages, >LD 
2478 ! YF 
2488 DATA 1,1,8,nb de pistes VA 
2498 DATA 1,2,1,secteurs/piste )2J 
2588 DATA 1,3,2,taille de bloc >XK 
2518 DATA 1,4,3,taille secteur )YG 
2528 DATA 1,5,4,entrees au dir »XG 
2538 DATA 1,6,5,preaier secteur )AA 
2548 DATA 1,7,6,decalage piste NT 
2558 DATA 1,8,7,GAP 3 ecrit/lit TT 
2569 DATA 1,9,8,GAP 3 formatage >YD 
2578 DATA 1,18,9,octet formatage )AN 
2588 )YH 
2598 DATA 1,12,0,ordre secteurs >AK 
2689 DATA 1,13,S, sauve formats >2B 
2618 DATA 1,14,1,iaprime format )2P 
2628 DATA 1,15,D, ligne de Datas )YP 
2638 DATA 1,16,A,fichier Ascii )YD 
2648 DATA 1,17,R,resuse format 2B 
2658 )YF 
2668 DATA 99,9,9,8 LM 
2678 )YH 
2688 ’nons/tailles des parass NY] 
2698 DYK 


2788 DATA SPT, 4, BSH, 2, BLM, 2, EXM, 2, DSH, 4, DRH, 4, AL, 4, CKS PR 
,4,0FF, 4, FSC, 2, PST, 2, GLS, 2, GLT, 2, FLE, 2, BPS, 2, RPS, 2, FL, 


2 


2718 ! )YC 
2728 ‘messages pour options )YD 
2738 ' )YE 


2749 DATA 1,"Non de foraatage","_pas plus de 18 lettres 
‘","_nos:" 

2758 DATA 2,"Duplication de formatage", "Operation irrev 
ersible!",*Duplique? (0/N) =>" 

2768 DATA 3,"Effacage de formatage", "Operation {rrevers 
ible!","Efface? (D/N) =>" 

2778 DATA 4, "Nombre de pistes", "N * *1,889%,"N:" >XN 
2788 DATA 5,"Nb de secteurs par piste", "SPT * ‘1,188"," )QQ 
SPT=" 

2798 DATA 6,"Taille d’un bloc","TB (KO) * ‘1,48","TB=" )DT 
2889 DATA 7,"Taille d'un secteur","TS (octets) * ‘512,4 )YP 
5965" ,"TS=" 

2819 DATA 8,"Nb d'entrees au directory","NE * °16,2568" DRV 


)BB 


PH 


CD 





, "NE=" 
2828 DATA 9,"Nusero du premier secteur", "NO * °#,2558*, DRY 
"NO=" 

2838 DATA 19, "Decalage de piste", "OFF * *#,798","OFF:" )EA 
2848 DATA 11, "GAP 3 de lecture/ecriture", "GAP * °9,2558 )>TU 
","GAP=" 

2858 DATA 12, "GAP 3 de formatage", "GAP * °#,2558", "GAP= 


2868 DATA 13,"Octet de remplissage", "FB * "9,2558",*FB- 
" 


2878 DATA 14, "Ordre des secteurs"," fleches pour choisi 
r","_ENTER pour valider" 

2888 DATA 15, "Sauvegarde du fichier","_inserer un Disc" 
,"_(S)auve ou (Rjetour ? =)" 

2898 DATA 16," Ispression du fornat"," prepaper l'inprin 
ante","_japrise? (O/N) =)" 

2988 DATA 17, "DATA debutant en ligne", "NO * °1,698989", DHY 
"NO=" 

2918 DATA 18, "format en Basic-Ascii","_ inserer un Disc" )UJ 
,"_non du fichier:" 


2928 DATA 8,FIN,9,8 HP 
IUT ARTETEET PET EE PECPEETECEEE )RB 
119 ’+ Createur du fichier # RC 
128 ’* des fornatages. # )RD 
139 *# copyright Y. GOUR 1991 # RE 
[UT RRETELEETPETEET PET ET EEE D RF 
159 RG 
169 OPENOUT"x":MEHORY &5989:CLOSEOUT:DEF INT a-z DUF 
179 OPENOUT"sapforsa. dat" dAF 
188 READ non$:WHILE non$C'"FIN" )ZU 
199 WRITEN9, non$ LV 
288 FOR i=1 TO 11:READ a$ :PRINTH9, VAL("&"+a$ ) :NEXT UD 
218 n=VAL("&"+a$) HD 
228 FOR i=1 TO 5:READ a$:PRINT#9, VAL("&"+a$) :NEXT )TA 
238 READ at,at:READ a$:PRINT#9, VAL("&"+a$) IN 
248 FOR 1=1 TO n:READ a$:PRINT#9, (VAL("&"+a$) MOD 16)-1 >DD 
:NEXT 

258 READ non$ KD 
268 VEND )CG 
278 PRINT#9, non$ : CLOSEOUT : END > AU 
1999 ' XD 
1818 'Fornatages: DPB et no de secteurs )XE 
1928 XF 
1938 DATA "DATA" )CK 
1949 DATA 9924,93,97,08, 0983, 603F, D0C8, 9019, 6000 )NQ 
1858 DATA C1,99,2A,52,E5, 92,94, 08,08,FF )EK 
1969 DATA C1,C6,C2,07,C3,C8,C4, C9, C5 )CV 
1978 ' YA 
1988 DATA "DATA-42" MK 
1898 DATA 9924, 83, 87,88, 69EC,893F, 99C8, 9819, 0988 JNN 
1189 DATA C1,89,2A,52,E5,92, 84,99, 89,FF )EF 
1118 DATA C1,C6,C2,07,C3,C8,C4,C9,C5 )CQ 
1129 >XG 
1138 DATA "DATA+" )LL 


| 





1148 DATA 9828,93,67,98,96D1,993F, 80C9, 9818, 9809 NU 
1159 DATA C1,8A,18,24,E5, 92,84,88,98,FF )EH 
1168 DATA C1,C6,C2,C7,03,C8,C4,C9,C5, CA )FK 
1178 )YB 
1189 DATA *IBM" DVD 
1198 DATA 6929,83, 97,89, 6898, 593F,08C5,9818, 9981 DNA 
1288 DATA 91,986, 2A,58,E5,92,84,80,88,FF EH 
1218 DATA 91,92,93,94,95,96,97,98 >YP 
1228 >XH 
1238 DATA "PCW* >WH 
1249 DATA #824,93,87,88,094E, 893F, 80C8, 9019, 0801 NA 
1258 DATA #1,99,2A,52,E5, 92,84,98,98,FF )ER 
1269 DATA #1,96,82,97,83,98,84,89,85 >AD 
1278 d )C 
1289 DATA "VENDOR" )HC 
1298 DATA 9924,93, 87,88, 88AA, B93F, 9808, 8919, 8982 NP 
1388 DATA 41,99,2A,52,E5, 92, 84,89, 60,08 DC 
1319 DATA 41,46,42, 47,43, 48, 44,49, 45 )BE 
1328 ? XJ 
1338 DATA "DB1-198K" >NK 
1348 DATA 9928,93,87,99,88C7,903F, 80C0, 9019, 9009 ND 
1358 DATA C1,9A, 18,24,E5, 92,84,08,98,FF )EK 
1368 DATA C1,C3,05,C7,C9,C2,C4,C6, CB, CA )FN 
1378 ' )YD 
1389 DATA “DB2-198K" JR 
1398 DATA 9928, 93,87,88,88C7,893F,98C8, 9919, 9928 JNV 
1488 DATA C1,9A, 18, 24,E5, 82, 84,89, 80,FF )EF 
1418 DATA C1,03,C5,C7,C9,C2,C4,C6,C8B, CA FH 
1428 JXK 
1438 DATA FIN )XKa 







ARCADES 


Des centaines de logiciels pour CPC 
à télécharger avec le kit ARCADES. 





Voir bon de commande page 36 





n petit lutin est victime d'une 
U malédiction : il est projeté 
dans un monde lointain et 
hostile. 
Pour regagner son univers, il doit ra- 


masser toutes les potions disposées 





[U AREZLELEETECITEEIEE 


29’: TROLL CI 
SU! HANENRERNENNENHE 
48 MEMORY &7FFF 


58 LOAD"!trol bin", &8888 
68 LOAD"!routroil",&A#SS 
78 NODE S#:BORDER # 


Valable pour CPC 664 - 6128 


dans chaque tableau. || récupèrera 
ainsi une clé pour passer au tableau 
suivant. 

Malheureusement, des monstres 
sont présents et ne cherchent qu'à 
dévorer le héros du jeu. 





Pour charger le jeu, il faut taper et 
sauver sous leurs noms respectifs les 
quatre fichiers ci-dessous. Ensuite, 
lancez DATATROL puis, DATAROUT 
pour obtenir les fichiers binaires cor- 
respondants. 


198 IF bi=1 THEN CALL &ABSC,FN poig,h+1),sp(1) MH 
288 NEXT £ JNJ 
218 NEXT h DNA 
228 FOR h=1 TO 11:READ ai )RV 
238 a1$(h)=BIN$(al,9):NEXT h VU 
>LA | 248 FOR h=1 TO 11:1F a1$(h)="8888988988" THEN 299 >LK 
LB | 258 FOR g=1 T0 9 )VA 
LC | 268 b1$=MID$(a1$0h),g,1):b1=VAL(b18) >Cu 
>GD | 278 IF b1=1 THEN CALL &ASSC,FN polg+18,h+1),sp(1) PC 
>VT | 288 NEIT g KG 
>ux | 298 NEXT h JNJ 
>NT | 388 GOSUB 328 >Gh 


68 RESTORE 99:FO0R 1=8 TO 15:READ a: INK Î,a:NEIT )QX 318 DATA 8,5,955, 296, 346, 298, 299, 8,8,5,8,8,5,648,648,64 )10 

98 DATA 8,5,24,11,1,2,3,6,9,23,21, 13,25,16,15,26 nu | 6,646,758,9,8,8,8,8,8 

188 DIN sp(13):FOR a=8 TO 12:sp(a+1)=48888+(at64):NEXT XX | 328 RESTORE 368:FOR T=1 TO 53 UC 
338 READ NO, DU VA 

118 DEF FN polx,y)=4C8884(y-1)#168+(x-1)#4 HG | 349 SOUND 1,N0, DU/2 NV 

128 DIN jeu(21,13):DIM a1$(11) uG | 358 MEXT T >PH 


138 RESTORE 319:G0SUB 148 
148 FOR h=1 TO 11:READ ai 
158 a1$(h)=BIN$(al,18):NEXT h 


168 FOR h=1 TO 11:1F al$Ch)="8888888888" THEN 218 > 


178 FOR g=1 TO 18 
188 b1#-HIDS(a1$(h),g, 1):b1=VAL(b1) 


>uz | 368 DATA 198,38, 169,38, 159, 38, 169,38, 198, 38,8,38, 127,38 >GN 
RW | :9,38,127,38,8,38, 142, 38,8,38, 159, 65, 169,68, 198, 38, 169, 
uk | 38,159,38, 142,38, 127,38, 8,38,95,38, 8,38, 189,68, 95,68, 84 


,128,9,68 


>8J | 379 DATA 198,38, 169,38, 159, 38, 169,38, 198,35, 8,35, 127,38 >BC 
>CX | :8,38,127,38,8,38,142,38,8,38, 159,68, 169,68, 198, 38, 169, 
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38, 159,38, 142,38, 127,389, 8,38,95, 38, 8,38, 189, 39,95, 35,84 
» 38,188, 39,95, 128 

388 MHILE INKEY$="":VEND:au=REMAIN(1) :CLS:G0T0 398 

398 DEF FN po(x,y)=&C888+(y-1)#89+(x-1)#2 

489 RESTORE 478:FOR h=1 TO 9:READ phé, 
T 

418 CALL &BB#5:CLS:GOTO 518 DVE 
428 ph$=UPPERS(ph$):FOR t=1 TO LEN(ph#):p=ASC(HID$(ph$, >KP 
t,1))-4B 


)XY 
>GC 
x,y:G0SUB 428:NEX )BL 


439 1F p<8 OR p>42 THEN p=43 JUR 
448 CALL &8348,FN polx, y)+(t#2),88368+ (p#16) KL 
458 NEXT )EE 
468 RETURN >ZF 


478 DATA troll,15,2,troll = le lutin = fut transporte d DRV 
ans,1,8,un monde isaginaire ( pour pouvoir, 1,18 

488 DATA revenir il doit rasasser toutes les ,1,12,fiol >NH 
es de la foret = et retrouver, 1,14, la cle du passage sa 
gique ( mais des, 1,16 


498 DATA monstres sans scrupule = veulent l>en ,1,18  )XQ 
588 DATA empecher <,1,28,noel b<,26,24 EH 
518 RUN"trolli HP 





Late 4: BAS 


18 ? ARR AAALIAtEE NE >LA 

ee | >LB 

4 >LC 

4 )LD 

4 )LE 

4 )LF 

4 LG 

(| >LH 

2 4 )LJ 

188 do 4 )RB 
118 tisane >RC 
128 ? >RD 
138 ’ Merci a Claude pour ses lecons RE 
148 ? )RF 
FETE TITLE LEE TE TELE EE >RG 
168 ” * variables de base # )RH 
[YCRRTES ET TETE TETE >RJ 
188 DEFINT a-z NF 
198 RESTORE 288:FOR i=$ TO 15:READ a: INK i,a:NEXT RE 
288 DATA 8,5,24,11,1,2,3,6,9,23, 21, 13,25, 16, 15,26 DNF 
218 DIM sp(13):FOR a=8# TO 12:sp(at1)=&8888+(at64):NEXT )XH 
229 DEF FN polx,y)=&C#98+(y-1)#169+(x-1)#4 DHJ 
238 DEF FN le(x,y)=4C#88+(y-1)#89+(x-1)#2 GE 
248 DIN ec(28,12) )EH 
258 ta=l:vie=3:fin=1 )QD 
268 ON BREAK CONT >HD 
PALRETT ICE CEE ETES TETE) >RK 
288 * x BRANCHEMENT TAB. # )TA 
208 Ÿ HANBEUNANEENENNIENNE >TB 
388 1F ta=1# THEN 1158 PL 
318 ON ta GOTO 328,338, 348,358, 368, 379, 388, 398, 489 )QD 
328 fio=18:RESTORE 2189:GOSUB 448:G0T0 618 XKH 








339 fio-9:RESTORE 2228:GO0SUB 448:G0T0 618 )JP 
348 fio=8:RESTORE 2348:GO0SUB 449:GO0T0 618 IT 
358 fio=7:RESTORE 246#:GO0SUB 448:G0T0 618 )JN 
369 fio-8:vie-=3:RESTORE 2588:G0SUB 44#:G0T0 618 >RU 
379 fio-9:RESTORE 2788:GOSUB 449:GO0T0 618 IX 
388 fio=8:RESTORE 2628:G0SUB 449:G0TD 619 )JA 
399 fio-9:RESTORE 2949:GOSUB 448:G0T0 618 )JF 
489 fio=8:RESTORE 3868:G0SUB 44#:G0T0 618 )JP 
EST ETTELTILIIEEELITIEIE )RF 
429 * # CREATION DU DECOR # RG 
439 ? HAMEHENENIÉENANNENUENS >RH 
449 FOR g=2 TD 12 )CB 
458 FOR h=1 TO 28 )CB 
469 READ ec:SOUND 2,28+ec,3,18 . DXX 
478 IF ec=8 THEN GOTO 568 )RJ 


489 IF ec=i THEN CALL &AS#D,FN poih,g),sp(2):x=h:y=g:ec >VH 
(h,g)=1:G0T0 568 

498 IF ec=2 THEN CALL &A8#D,FN poth,g),sp(6):ec(h,g)=2: >HB 
GOTO 568 

589 IF ec=3 THEN CALL &ASSD,FN poih,g),sp(13):xc=h:yc=g )CV 
tec(xc,yc)=8:GO0T0 568 

518 1F ec=5 THEN CALL &ASSD,FN poth,g),sp(9):xp=h:yp=g: >BV 
ec(xp,yp)=9:G0T0 568 

528 IF ec=6 THEN CALL &AS8D,FN po(h,g),sp(8):ec(h, g)=9: DHJ 
GOTO 568 

538 IF ec=7 THEN CALL &ABSD,FN poth,g),sp(i):ec(h,g}=9: >HD 
GOTO 568 

549 IF ec=8 THEN CALL &AS#D,FN poth,g),sp(11):ax=h:ny=g )CA 
sec(ax,ny)=4:G0T0 569 

558 1F ec=9 THEN CALL &ABSD,FN poi(h,g),sp(12):nx=h:ny=g >CH 
sec(nx,ny)=4:G0T0 569 


568 NEXT h,g )26 
578 GOSUB 1868 )QA 
SB8 ? HAHNIHANENSENFANEANENN )TD 
598 * # routine principale # )TE 
689 ? HURHAHANENNENANEENENX )RG 
618 GOSUB 1518:G0SUB 1728 )TZ 
628 IF fin=# THEN 1998 DPE 
638 IF JOY(#)=8 AND ec(x+1,y) 9 THEN 698 >GK 
649 1F JOY(#)=4 AND ec{x-1,y) C9 THEN 778 >GH 
658 IF JOY(#)=1 AND ec(x,y-1)C>9 THEN 858 GE 
669 IF JOY(#)=2 AND ec{x,y+1) C9 THEN 928 )GC 
678 GOTO 618 )2G 
688 REM vers la droite )RQ 


698 xi=xti:yi=y:ec(x,y)=8:p=4:1F ec(xi,y1)2=2 THEN 1249 DZN 


789 CALL &ASBD,FN polxi,y1),sp{5):CALL &ASSD,FN po(x,y) >WP 


,Sp(13):ec(x,y)=$ 


719 1F (xi=mxi AND yl=ay1) OR (xi=nxi AND yl=ny{) THEN AG 
2818 

728 FOR t=1 TO 19:NEXT )Q6 
738 SOUND 1,58#x,5, 18 )PD 
748 CALL &ASBD,FN po(xi,y1),sp(4) DAE 
758 x=x1:y=y1:G0T0 618 >RU 
768 REM vers la gauche )QV 


718 xi=x-1:yl=ytec(x,y)=8:p=2:1F ec(xi,y1)2=2 THEN 1248 DZL 


788 CALL &ASBD,FN polx1,y1),sp(3):CALL &ABSD,FN pol(x,y) DU 
,3P(13):ec(x,y)=$ 
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798 1F (xl=mxi AND yl=ay1) OR (xi=nxi AND yl=nyi) THEN DAQ | 1288 IF ec(xi,y1)=3 THEN 1358 ELSE 144$ >DH 


2918 1298 CALL &ABSD,FN polxi,y1),sp(p):CALL &AS£D,FN po(x,y HD 
888 FOR t=1 TO 19:NEXT >0F | ),sp(13):SOUND 1,188,38,18:fio=fio-l:ec(xi,y1)=8:1F fio 

818 SOUND 1,58%x,5, 18 >PC | ?=18 THEN 1x=21 ELSE 1x=22:1y=1:ph$=STR$(fio):GOSUB 181 

828 CALL &ASBD,FN pol(xi,y1),sp{2) DAB | #:x=xi:y=yltIF fioC8 THEN 619 ELSE 1318 

838 x=x1:y=y1:G0TO 618 >RT | 1399 RETURN EH 
848 REH vers le bas >NN | 1319 * * APPARITION CLE # )XH 
858 yl=y-1:xi=xtec(x, y)=8:1F ec(xi,y1))=2 THEN 1248 VE | 1328 FOR t:# TO 88 STEP 2:SOUND 1,t,1,15:NEXT HT 
869 CALL &AGBD,FN polx,y),sp(13):ec(x,y)=8 KE | 1339 CALL &ABSD,FN polxc,yc},sp(7):ec(xc, yc)=3 >PA 
878 IF (xi=axi AND yi=nyi) OR (xf=nx1 AND yf=nyi) THEN AP | 1348 GOTO 618 )FA 
2818 1358 * HHHIEHENENHNNNNNN )YB 
888 SOUND 1,584y,3,19 >PpJ | 1368 ‘ x OUVERTURE PORTE # )YC 
898 CALL &ASBD,FN polxi,y1),sp(2) DAJ | 1378" HRRERRENEENERNNE )D 
988 x=x1:y=y1:G0TO 618 >RQ | 1388 CALL &ASSD,FN po(x, y), sp(13) >AA 
918 REM vers le haut >PZ | 1398 CALL &ASSD,FN polxi,y1}, sp(p} )BP 
929 yi=ytiixi=xtec(x, y)=8:1F ec(xi,y1)2=2 THEN 1249 DVA | 1488 ec(xi,yl)=8:x=xl:y=yi JWK 
938 CALL &ASBD,FN polx,y),sp(13):ectx, y)=$ >KC | 1418 FOR t=2 TO 8 STEP -1::SOUND 1,1888#t,29,15:NEXT  DUA 
949 IF Cxi=mxi AND yl=ny1) OR (xi=nxi AND yl=nyi) THEN AM | 1428 CALL &ABSD,FN po(xp,yp),sp(18) :ec(xp, yp)=4 RH 
2818 1438 GOTO 618 )FA 
958 SOUND 1,584y,5, 18 >pJ | 1448 CALL &ABSD,FN po(xp, yp), sp(2) DEV 
968 CALL &ASBD,FN polxi,y1), sp(2) >AG | 1458 CALL &ABBD,FN po(x,y),5p(13) )AY 
978 x=x1:y=y1:GOTO 618 >RY | 1468 CALL &ABSD,FN po(xp, yp), sp(9) )BE 
LT RETTEEPETE >TH | 1478 GOTO 1938 NC 
998 ? # TEXTE # >TJ | 1488" HAWARENENNENEEX DYF 
1898 ? wursuuus »XD | 1498 ” # MONSTRE 1 # >YG 
1819 ph$=UPPERS(ph#):FOR t=1 TO LEN(ph#):p=ASCCMID#(ph$ DLU | 1588 " #rkattenttntex »XJ 
1t»1))-48 1519 DI:0ON sa GOTO 1528,1568, 1688, 1648 >DN 
1828 1F p<8 OR p>42 THEN p=43 DVF | 1528 axi=mxti:myi=ay: IF mxi=x AND nyi=y OR axi=xi AND n RG 
1838 CALL &6348,FN le(lx, ly)+(ta2),4&8368+(p#16) NE | yi=yi OR nx=xi AND ny=yi THEN 1998 

1849 NEXT >kG | 1538 IF ec(mxi,nyl)28 THEN sa=INT(RND#4)+1:EL:RETURN  DYG 
1859 RETURN >EK | 1549 CALL &AD8D,FN po(sx,ny),sp(13):ec(ax,ny)=# )RB 
1868 RESTORE 1979:FOR h=1 TO 2:READ ph,lx,ly:GOSUB 191 >GH | 1558 CALL &ABSD,FN po(axi,ny1),sp(11):ec(axt,ny1)=2:ex= DFL 
S:NEXT axi:ay=ay{:ET:RETURN 

1878 DATA tableau, {,1,manque, 15,1 >BT | 1568 axi=ax:ayi=ay+1:1F axi=x AND myi=y OR axi=xi AND a DRL 


1888 FOR n=1 TO vie:CALL &ASSC,FN po(i6+n,1),sp(2):NEXT >ZY | y1=yi OR ax=xi AND ny=yi THEN 1998 
1578 IF ec(mxi,ny1)8 THEN sm=INT(RND#4)#1:ET:RETURN DL 








1898 pht=STRé(ta):1x=18:1y=1:GOSUB 1918 Hk | 1588 CALL &ABSD,FN polax, ay), sp(13):ec(ax, ay)=8 >RF 
1198 ph$=STRé(fio):1x=Z1:1y=1:GOSUB 1918 »JR | 1598 CALL &ABSD,FN polaxi,ny1),sp(11):ec(uxt,myi)=2:ex DFQ 
1118 RETURN: GOTO 619 )PT | mxi:ay=myltET:RETURN 

1128 ? HUHEHENEENENIE >XG | 1698 axi=nx-1:nyi=ay:IF ax1=x AND myi=y OR axi=xi AND m >RH 
1138 * x GAGNE-PERDU x >XH | y1=y1 OR mx=xi AND my=y{ THEN 1998 

[EUURMRETETELELEE TELLE »X3 | 1618 IF ec(mxi,ny1)28 THEN sa=INT(RND#4)+1:EI:RETURN YF 
1158 RESTORE 1168:FOR h=1 TO 4:READ phé, x, ly:G0SUB 181 >HB | 1628 CALL SABBD,FN polax, ny), sp(13):ec{ux, ny}=8 )RA 
#:NEXT 1638 CALL &ABSD,FN po(axi,nyi),sp(11):ec(axi,my{)=2:ax= >FK 
1168 DATA bravo àà,13,11,vous avez gagne, 18,13,voulez DWU | axl:ay=myi:ET:RETURN 

vous rejouer ?,8,15,oui = non,13,17 1648 axi=ax:uyi=ay-1:1F mxi=x AND myi=y OR mxi=xi AND n DRH 
1178 rep$=UPPERS(INKEY#):1F rep#="" THEN 1178 my | y1=yl OR nx=xi AND my=yi THEN 199 

1188 IF rept="0" THEN CLS:RUN >XN | 1658 IF ec(mxi,ny1)>8 THEN sa=INT(RND#4)+1:EL:RETURN  DYK 
1198 IF rep#="N" THEN CALL 8 up | 1668 CALL &A88D,FN polax, ny), sp(13) :ec{ax, ay)=9 RE 
1288 GOTO 1178 LK | 1678 CALL &ABSD,FN polaxi,nyi),sp(1f):ec(mxi,my1)=2:ax= DFP 
1218 RESTORE 1229:FOR h=1 TO 3:READ ph, 1x, 1y:GOSUB 181 2GC | mxl:ay=myl:ET:RETURN 

S:NEIT 1688 Di:sx=sa:sa=INT(RND*4)+1:1F sm=sx THEN 1688 ELSE E DLL 
1228 DATA vous avez perdu, 18,13, voulez vous rejouer ?,8 >ZL | I:RETURN 

,15,oui = non, 13,17 1698 ? HERMANN )YJ 
1238 GOSUB 1189 Du | 1788? # HONSTRE 2 x )YA 
1248 * HUHHHHENENE >XK | LTD HANAERARNNENIEN )1B 
1258 ‘ # CONTACTS 1 >yA | 1728 DI:ON sn GOTO 1738,1778, 1818, 1859 >DF 
1268 Ÿ HUMRUNENEEEE »ÿ8 | 1738 nxi=nxtlinyi=ny:1F nxi=x AND nyi=y OR nxi=xf AND n QT 
1278 IF eclxl,y1)=2 THEN 129$ ELSE 1288 DL | y1=y OR nx=xi AND ny-y1 THEN 2888 
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1748 IF ec(nxi,ny1)28 THEN sn=INT(RND#4)+1:E1:RETURN  DYN 
1758 CALL &AB#D,FN po(nx, ny}, sp(13):ec{nx, ny}=# )RJ 
1768 CALL &ABSD,FN potnxi,ny1),sp(12):ec(nxi,nyi)=2:nx= )FZ 
nx{:ny=nyi:El:RETURN 

1778 nxi=nx:nyl=ny+1:1F nxi=x AND nyi=y OR nxi=xi AND n >QX 
y1=y OR nx=x1 AND ny=y1 THEN 2988 

1788 IF ec(nxi,nyl)>9 THEN sn=INT(RND#4)+{1:EI:RETURN  DYT 
1798 CALL &AS#D,FN po(nx, ny}, sp(13) :ec(nx, ny)=8 )RN 
1898 CALL &ABSD,FN po(nxi,ny1),sp(12):ec(nxi,ny1)=2:nx= FU 
nxi:ny=ny1:El:RETURN 

1818 nxi=nx-1:nyi=ny:1F nxi=x AND nyi=y OR nxi=x1 AND n DQU 
yi=y OR nx=xi AND ny=y1 THEN 2989 

1828 IF ec(nxi,ny1)>8 THEN sn=INT(RND#4)+1:EI:RETURN  DYH 
1838 CALL &AZSD,FN po(nx, ny), sp(13) :ec(nx, ny) =# >RH 
1849 CALL &AB#D,FN potnxi,ny1),sp(12):ec(nxi,ny1)=2:nx= )FY 
nxi:ny=ny1:EI:RETURN 

1858 nxi=nx:nyi=ny-1:1F nxi=x AND nyi=y OR nxi:xi AND n >QY 
yi=y OR nx=xi AND ny=y1 THEN 2988 

1868 IF ec(nxi,ny1)28 THEN sn=INT(RND#4)+1:E1:RETURN  DYR 
1878 CALL &ADSD,FN po(nx,ny),sp(13):ec{nx, ny)=# )RH 
1888 CALL &ABSD,FN potnxi,nyi),sp(12):ec(nx{,ny1)=2:nx= )FC 
nxi:ny=ny{:EI:RETURN 

1898 Di:sx=sn:sn=INT(RND#4)+1:1F sn=sx THEN 1898 ELSE E >LW 
I :RETURN 


1989 ? HENAENEENNENHENHEX )YC 
1919 ? #* CHANGEMENT TAB # )YD 
1928 ? HANAEMEENIENIENNE )YE 
1938 FOR h=ÿ TO 3:au=REMAIN(h) :NEXT:fin=8 KA 
1949 ta=tat{:fin=1:FOR t=1 TO 1888: NEXT t >HP 
1959 CLS:ERASE ec:DIM ec(28, 12) :G0SUB 388 )HH 
1969 ? nauxaunxux DA 
1979 * # VIE -1 * )YK 
1988 ? xawttHtanut »7A 


1998 CALL &AB8D,FN po(axi,myi),sp(11):CALL &ABBD,FN pol )EB 
ax,y),5p(13) :GOTO 2819 








2889 CALL &A9#D,FN pol(nxi,ny1),sp(12) :CALL &AS9D,FN pot )DX 
nx,ny),sp(13) :G0T0 2818 


2818 FOR h=$ TO 3:mu=REMAIN(h) :NEXT )DU 
2828 vie=vie-1:1F vie(># THEN 2938 ELSE 2858 KT 
2839 CLS:ERASE ec:DIM ec(29,12):fin=1 )EA 
2848 GOTO 318:RETURN >PA 
2858 CLS:GO0TO 1218 )HY 
2868 * NEREUNENIEX DYA 
2879 * x TABLEAUX # >B 
2889 ? HENAENAENEN >YC 
2898 ? ier tableau )D 
2199 DATA 7,7,7,1,1,7,1;l5t5t5l5t5t5t5t5 95 t5 05 >PA 
2118 DATA 7,2,6,8,9,9,2,6,2,8,9,9,8,8,9,2,6,9,2,7 >ND 
2128 DATA 7,8,6,6,8,6,6,6,6,6,6,6,6,6,8,6,6,8,6,7 >NQ 
2138 DATA 7,8,8,9,9,6,5,9,0,8,9,9,9,6,9,9,8,9,6,7 )NA 
2148 DATA 7,8,8,0,8,6,8,2,8,8,8,8,9,6,6,6,9,8,6,7 )NN 
2158 DATA 7,6,2,6,9,6,9,9,0,68,9,9,9,6,9,8,8,8,8,7 >NP 
2168 DATA 7,2,6,8,8,6,9,9,8,9,6,9,8,6,9,6,6,6,6,7 NV 
2179 DATA 7,8,6,8,8,6,2,8,0,9,9,9,9,6,9,9,8,8,8,7 )NB 
2188 DATA 7,8,9,8,8,6,6,6,6,6,6,6,6,6,8,8,6,6,8,7 >NC 
2198 DATA 7,3,6,8,8,0,8,9,9,8,9,9,8,8,9,1,6,2,8,7 )NB 
2298 DATA 7,7,7,7,1,7,1,1,7,1,15t5t5l1l5lpt5l5t5t >PB 
2219 ’ 2ene taleau )XH 
2228 DATA 7,7,7,17,1,7,1,1,7,0575t5t5t5l5 555€ >PD 
2238 DATA 7,6,8,2,6,8,8,9,6,2,9,6,6,2,8,6,8,8,2,7 NT 
2248 DATA 7,8,6,6,6,8,8,8,9,6,8,8,6,5,9,9,8,6,6,7 )ND 
2258 DATA 7,9,6,8,8,9,8,1,0,6,9,6,6,6,6,8,8,9,0,7 NU 
2268 DATA 7,3,8,9,6,6,8,9,8,6,9,8,8,8,6,6,6,6,9,7 )ND 
2278 DATA 7,6,6,6,6,2,8,6,9,9,6,9,6,2,9,8,9,9,9,7 NF 
2288 DATA 7,8,9,0,8,6,6,6,8,8,8,8,8,6,2,8,8,9,8,7 )ND 
2298 DATA 7,8,9,9,9,8,9,6,6,8,8,6,8,8,6,6,6,6,8,7 >ND 
2388 DATA 7,8,6,6,6,6,8,8,8,9,8,6,6,9,8,9,8,6,8,7 NV 
2318 DATA 7,8,9,9,2,6,8,6,0,8,9,6,2,8,6,6,8,8,8,7 )NA 
2328 DATA 7,7,7,1,1,7,7,1,7551515t5t5l5t5t9l5t5 PE 
2338 ’ 3ene taleau YA 
2348 DATA 7,7,7,17,1,7,1,175t51515t5t5t5t5t9l5t5 € >PG 


2358 DATA 7,8,9,8,2,6,6,3,8,6,8,8,8,6,8,8,6,8,2,7 > 
2368 DATA 7,8,6,6,6,6,6,8,8,6,8,6,9,2,6,98,8,8,8,7 >K 
2378 DATA 7,9,8,8,9,8,8,9,6,6,8,6,6,6,6,6,8,6,6,7 >NQ 
2388 DATA 7,6,6,6,2,6,9,8,9,9,9,8,9,6,8,9,8,8,8,7 DNE 
2398 DATA 7,8,8,8,6,9,6,6,6,6,8,6,6,6,6,8,6,6,8,7 NF 
2499 DATA 7,2,6,9,8,6,9,8,8,9,8,6,5,8,6,9,9,6,2,7 NT 
2418 DATA 7,6,6,6,9,9,6,8,6,6,9,6,8,8,9,6,8,9,6,7 >NK 
2428 DATA 7,8,8,8,6,9,9,6,8,8,1,6,6,6,8,8,6,8,8,7 NT 
2438 DATA 7,2,6,9,9,9,9,8,0,6,9,9,8,8,9,9,8,6,2,7 >NC 
2449 DATA 7,7,7,17,1,7,1,1,71,1%tt5t5l5t5ls5t5t >PH 
2459 ’ 4ene taleau )YD 
2468 DATA 7,7,7,17,1,7,7,15t5155t3tt5t5l5t5t5t5t >PK 
2478 DATA 7,2,8,6,6,8,8,0,9,8,6,2,6,9,9,9,9,6,2,7 )NI 
2488 DATA 7,8,8,9,8,8,8,0,9,9,9,8,9,8,8,1,8,6,8,7 )NA 
2498 DATA 7,8,6,8,9,6,8,6,5,6,8,6,6,6,9,6,9,6,9,7 )NZ 
2558 DATA 7,8,6,6,8,6,9,6,8,6,9,6,2,8,8,6,8,6,9,7 NF 
2518 DATA 7,9,6,6,2,6,8,6,8,6,9,6,6,8,9,6,9,6,8,7 NN 
2528 DATA 7,8,6,2,6,6,2,6,8,6,9,6,8,8,8,6,8,8,8,7 JNN 
2538 DATA 7,8,6,8,6,6,8,6,9,6,9,6,8,8,4,6,8,9,9,7 )NA 
2548 DATA 7,8,6,8,8,6,8,6,6,6,8,6,6,6,8,6,6,6,8,7 NC 
2558 DATA 7,3,8,9,9,0,8,0,9,8,9,8,8,9,9,0,9,9,0,7 >NK 
2568 DATA 7,7,7,7,1,7,1,1,7,1,1,7515ts15l5t0t505 € >PL 
2579 ’ 5eme taleau >YG 


2588 DATA 7,7,7,7,17,7,7:1,151,1;tt5lot5t5t5l5t9 € 
2598 DATA 7,9,2,6,8,9,9,6,2,6,8,2,6,2,6,8,8,8,8,7 
2698 DATA 7,8,6,6,8,6,8,6,8,6,9,6,8,8,6,8,6,6,8,7 
2618 DATA 7,6,8,8,8,6,9,6,9,6,9,9,8,8,6,8,8,6,8,7 
2628 DATA 7,6,6,6,8,6,8,6,8,6,8,6,6,6,8,8,6,2,8,7 
2638 DATA 7,5,9,6,9,6,9,9,9,8,8,9,8,9,8,6,6,6,6,7 
2648 DATA 7,6,9,9,8,6,6,6,8,6,6,8,9,6,8,8,6,8,8,7 
2658 DATA 7,9,8,9,6,9,2,6,8,6,2,6,1,8,6,8,8,6,9,7 
2668 DATA 7,8,6,9,8,6,9,6,8,9,8,8,6,8,2,6,8,8,6,7 
2678 DATA 7,9,6,6,9,8,9,6,9,6,6,8,6,6,6,6,6,9,3,7 
2689 DATA 7,7,7,17,17,7,7,1,751,1;7;t5l5l515t5t5l5t 
2698 ’ Gene taleau 

2789 DATA 7,7,7,1,1,7,7,1t5l5l5t5t5l5l5t5 tot t9 l 
2718 DATA 7,9,8,8,8,9,9,0,9,8,0,9,8,0,9,6,8,8,6,7 
2728 DATA 7,8,6,6,6,6,6,6,6,6,6,6,6,6,6,8,6,8,8,7 
2738 DATA 7,9,6,2,6,8,8,6,8,8,8,6,8,2,6,8,6,2,9,7 
2748 DATA 7,8,6,9,8,9,8,6,9,6,2,6,8,6,9,9,8,6,8,7 
2758 DATA 7,9,6,6,6,6,8,6,9,6,6,9,8,9,9,6,8,6,8,7 
2768 DATA 7,8,68,9,8,9,1,8,9,9,8,8,6,9,6,6,8,6,8,7 
2778 DATA 7,9,6,6,6,9,6,8,6,6,8,6,2,6,2,8,3,6,9,7 
2788 DATA 7,8,9,6,2,6,8,8,6,9,8,6,8,6,6,6,6,8,8,7 
2798 DATA 7,6,8,8,8,6,2,8,6,2,6,5,8,8,9,8,8,8,6,7 
2898 DATA 7,7,7,17,17,7,1,1,7,1,1,15t;t5t5l5tsl5l5t 
2818 ’ 7eme taleau 

26829 DATA 7,7,7,17,17,7,%1,75tl5t5t5l5t5t5 ty t5t5t 
2638 DATA 7,8,9,8,8,9,8,9,9,6,6,8,5,6,2,6,8,9,2,7 
2848 DATA 7,6,9,6,6,6,6,6,8,6,6,8,6,6,8,6,6,8,6,7 
2859 DATA 7,6,9,9,2,6,8,9,0,9,0,8,6,8,9,8,8,8,6,7 
2868 DATA 7,8,6,6,6,8,6,6,6,8,6,6,6,8,6,6,6,6,8,7 
2878 DATA 7,8,9,9,9,9,8,9,9,9,9,9,8,9,9,6,8,9,8,7 
2888 DATA 7,6,8,9,6,6,6,9,8,6,6,2,9,6,6,6,8,6,6,7 
2898 DATA 7,8,8,6,6,6,6,6,8,2,6,4,8,6,2,6,8,8,8,7 
2998 DATA 7,8,6,6,2,6,2,6,6,6,6,6,6,8,8,8,6,6,8,7 
2918 DATA 7,8,8,8,8,6,3,9,0,8,0,9,8,9,6,9,8,8,1,7 
2928 DATA 7,7,7,1,1,7,1,1,7,115t5t5t5t5t5t5l5t5t 
2938  8ene taleau 

2948 DATA 7,7,7,17,7,7,1,1,7,1,1,7,1,%15tt5l5t5t 
2958 DATA 7,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,8,1,9,7 
2968 DATA 7,8,6,9,8,6,8,9,6,9,8,6,8,9,6,9,8,6,9,7 
2979 DATA 7,8,2,8,6,6,6,8,2,8,6,6,6,8,2,8,6,6,6,7 
2988 DATA 7,8,6,9,8,6,8,9,6,8,9,6,9,9,6,8,8,6,9,7 
2998 DATA 7,6,6,6,9,2,8,6,6,6,8,2,8,6,6,6,8,2,0,7 
3888 DATA 7,5,6,9,8,6,8,9,6,9,9,6,8,9,6,8,8,6,9,7 
3818 DATA 7,8,2,8,6,6,6,9,2,8,6,6,6,8,2,8,6,6,6,7 
3929 DATA 7,3,6,8,8,6,8,8,6,8,8,6,8,9,6,9,9,6,9,7 
3839 DATA 7,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,8,8,5,7 
3849 DATA 7,7,7,17,1,7,1tt5tl5l5t5t5l5t5t5l5l5t 
3958 ? Jene taleau 

3969 DATA 7,7,7,7,7,7,7,1,77;lit5t5l5t5t5t5l5l5t 
3978 DATA 7,9,2,8,8,9,6,6,6,6,6,6,6,6,9,9,8,9,3,7 
3888 DATA 7,8,8,9,8,8,8,9,8,9,8,8,8,8,8,9,8,6,9,7 
3898 DATA 7,6,9,2,6,6,6,8,9,6,8,9,6,9,9,6,2,8,6,7 
3188 DATA 7,8,6,8,6,8,8,8,8,6,8,8,6,6,1,6,8,6,8,7 
3118 DATA 7,9,8,6,6,6,8,9,68,6,8,2,6,6,6,6,6,8,8,7 
3128 DATA 7,8,6,8,6,8,2,8,8,6,8,8,6,8,6,6,8,6,8,7 
3138 DATA 7,6,8,9,6,8,8,5,9,6,8,9,6,9,9,6,8,8,6,7 
3148 DATA 7,8,8,9,8,8,9,8,8,2,0,8,9,9,8,8,8,8,8,7 
3158 DATA 7,5,8,2,8,8,6,6,6,6,6,6,6,6,9,9,2,8,8,7 
3168 DATA 7,7,7,1,1,7,1,1,7,1,15151;t5t5l5lyl5t5t 

















PATATROL - BAS 
DES a UE ER RS — 
18 A=&8888:F=&6788:L=188:HILE AC=F:FOR A=A TO A+1S:READ C$:K=V 
AL("&®+C$):S=S+K+65536#(5+K)32767): IF A(=F THEN POKE A,K 
28 NEXT:READ D$:T=VAL("&"+D$):1F TOS THEN PRINT CHR$(7);"Erreu 
r ligne";L:END ELSE L=L+5:WEND 
38 SAVE "TROLLBIN",b,32768,k788 
189 DATA 8C,8C,8C, 80, 1D,3F,3F,3F, 1D,9C,9C, 3D, 1D, 8C, 8C, 3D, S1FE 
195 DATA 1D,8C,8C,3D, 1D, 1D,2E, 3D, 1D, 1D, 2C, 3D, 1D, 1D, 2C, 3D, 844B 
118 DATA 1D,1D,2C, 3D, 1D, 1, 2C, 3D, 1D,8C, 90, 3D, 1D,8C, 8C,3D, 8674 
115 DATA 1D,8C,8C,3D,1D,8C,8C,3D, 10,30, 3C, 3D, 3F,3F, 3F,3F, 8925 
125 DATA 88,FC,FC, 98,54,FC,FC, AB,55,FE, FC, FC, 58,FB,FC, FC, 149F 
125 DATA 58,FB,F6,FC,F3,F3,F3,FC,F3,F3,F3,54, 51, 79, F3,54, 29EF 
138 DATA 99,F3,A2,88,89,F#,FS,99,98,E4,D8,99,98,E4,D8,89,27DC 
135 DATA 99,D9,E6,99,98,51,E6,89, 15, 4C,88, 88, 15,3F, 2A,88, 2039 
148 DATA 88,FC,FC,88,54,FC,FC,AB,55,FE,FC,FC,58,FB,FC,FC,37B3 
145 DATA 58,FB,F6,FC,F3,F3,F3,FC,F3,F3,F3,54,51, 79,F3,54, 4493 
158 DATA 98,F3,A2,88,89,F9,F9,99,99,E4,D8, 99, 88,E4,D8, 98, 4AFS 
155 DATA 88,D9,E6, 89,98, D9,E6, 88, 2E, CC, 2E, 24, 3F, 24, 3F,98, 58F9 
169 DATA 98,FC,FC, 98,54, FC, FC, A8, FC, FC, FD, AA,FC,FC,F7, A8, 5SDSA 
165 DATA FC,F9,F7,A8,FC,F3,F3,F3,A8,F3,F3,F3, AB, F3, B6, A2, GADF 
178 DATA 89,51,F3,89,89,F9,F#,89,09,E4,D8, 98, 98,E4,D8,08, 7178 
175 DATA 68,D9,E6, 58,98, D9, A2,99,98, 44, 6C, 2A, 89, 15, 3F, 2A, 762D 








| 188 DATA 9,FC,FC,98,54,FC,FC, A8,FC,FC,FD, AA, FC, FC, F7, A9, 8247 


185 DATA FC,F9,F7,A8,FC,F3,F3,F3,AB,F3,F3, F3, AB, F3, B6, A2, 991C 
198 DATA 99,51,F3,88,89,F9,FS#,95,99,E4,D8, 89, 68, E4,D8, 98, 96B8 
195 DATA 88,D9,E6,88,44,D9,E6, 98,15, 1D, CC, 1D, 88, 3F, 15,3F,9C28 
288 DATA 99,CC,D2,99,88, 44,48, 99,08,44, A8, 98,98, 44, AS, 58, A872 
285 DATA 99,44, A8,99,88,44,A8,08,88,CC,D6, 88, 44,CC, CC, AS, AG5SA 
218 DATA CC,C6,CC, D2, CC, C6, CC, D8, CC, C6, CC, D8, CC, C6, CC, DB, B32C 
215 DATA CC,C9,CC,D8,CC, CC, CC, F8, 44,CC, DB, A9, 89, F9, F0,98, BE21 
228 DATA 89,8C,8C,89,94,8C,4K,98,0C,59,08,5C,96,98,98,94,BEBI 
225 DATA 98,89,95,84,06,99,98,84,9C,89,89,8C, 54, 8C, C, 98, BEDS 
236 DATA 99,8C,8C,98,89,94,08,98,99,54,98,09,98,94,98,09,BF11 
235 DATA 94,8C,96,89,69,0C,96,08,54,8C, 88, 80, 59,94, 86,98, BF61 
249 DATA 96,81,84, 99,89, 69,93, 59, 81,9B, 83, 52,94, 93,97, 92,BF99 
245 DATA 9B, 83,89, 93,23, 66,9B, 98,93, 0B, 83, 6F, 93, 83, 83, 8D, CBAB 
259 DATA 8B,8E,97,97,23, 93,99, 97, 13,97,8B, 83,99, 4F,9B,fE,C29E 
255 DATA 91,93,93,8A,98,8E,6F,98,58, 15, 2A, 59, 89, 15, 2A, 0, C3CA 
268 DATA 99,3F,3F,89,15,3F,3F,2A,3F,3F,3F,3F,3C,3C, 3D, 3F,CG6F5 
265 DATA 3C,3C,30,3F,30,3C,2C,3F,8C, 8, 1D, 3F, 3F,3F, 3F, 3D, CA39 
278 DATA 3F,3F,9F,3D,3F,3F,3F,3D, 3C, 3€, 3D, 3F, 3€, 3C, 30, 3F,CE14 
275 DATA 3C,3C,20,3F, 80,80, 1D,3F,3F,3F,3F,3F,3F,3F,3F,3F,D163 
268 DATA 99,3F,3F,89, 15, 2A, 15, 2A,3F,89,98,3F,2A,98,98,15,D31C 
285 DATA 2A,89,88,15,2A,88,98, 15, 2A,88,88, 15, 2A, 89, 89, 15, D418 
298 DATA 2A,88,89,15,2A, 89,98, 15,2A,98,98,15,2A,98,98,15,D514 
295 DATA 24,99,88,15,2A, 88,98, 15, 2A,89, 86, 15,3F,3F, 3F,3F, D6CD 
389 DATA 82,88,89,91,83, 68,95, 93, 2B,98,98,17,2B,91,82,17,D75D 
345 DATA 93,83,83,83, 12,83,93, 21,93,83,43, 83,57, A9, 56, AB, DAGF 
318 DATA 57,A9,56, AB, 17, 3F,3F, 28, 3F,35, 3À,3F, 3F,3F,3F,3F,DF19 
315 DATA 3F,3E, 3D,3F,15,6B,97, 2A,88,3E, 3D, 89, 89, 3F, 3F, 89, E24C 
328 DATA 91,82,81,82,81,93, 93, #2, 93,93, 93, 83, 93,89, 43,93,E333 
325 DATA 43,03,C3,83,43,61,92, 83,43,E1,D2, 83, 83, 83, 43,83, EA7D 
338 DATA 2B,17,2B,17,3F,3F,3F,3F,3F,35, 34, 3F,3F,3F,3F,3F, EDEG 
335 DATA 15,3F,3F,2A, 15,3F,3F, 24,98,3F,3F,88, 88, 15, 2A,88,FS1D 
348 DATA 99,858,989,99,89,95,08,96,09,65,08,99,95,08,68,58,F81D 
345 DATA 99,99,98,89,69,88,98,08,55,89,98,90,96,90,80,98,FO1D 





358 DATA 89,89,99,99,99,60,99,99,09,99,99,08,08,08,95,08,F81D 
355 DATA 98,88,99,99,95,09,99,05,68,99,96,08,56,99,99,98,FO1D 
368 DATA DD,5E, 88, DD, 56, #1, DD, 6E, 92, DD, 66, #3,96,98,C5,E5,F6D7 
365 DATA 86,92, 1A,77,23,13,18,FA,E1,CD, 26, BC, C1, 19,EF,C9, FDC9 
378 DATA 15,3F,15,3F,84,#4,84,94, 15,15, 15,3F,54,FC, 98,68, 584F 
375 DATA 88, 2A, 15,2A,94,88,98,98,88, 2A, 15,3F,54,FC, 89,88, #29A 
388 DATA 15,3F,15,3F,98,94,99,8C, 15,24, 15,3F,54,FC,98,98,9535 
385 DATA 15,3F,15,3F,98,84,94,8C,68, 15, 15,3F,54,FC, 89,98, S7AA 
398 DATA 15,89,15,99,94,89,94,84, 15,3F, 15,3F,98,54,98,98,5BDC 
395 DATA 15,3F,15,3F,94,89,94,8C,88,15,15,3F,54,FC, 89,88, 5B51 
489 DATA 15,3F,15,3F,84,99,94,8C, 15,15, 15,3F,54,FC,98,98, SDDB 
495 DATA 15,3F,15,3F,88,84,95,8C,96,3F, 15, 24,54, AB, 89,89, 198D 
418 DATA 15,3F,15,3F,894,84,94,8C, 15,15, 15,3F,54,FC, 88,58, 129B 
415 DATA 15,3F,15,3F,84,#4,84,8C,88, 15,15,3F,54,FC, 89,98, 1514 
425 DATA 89,99,99,89,99,8C,99,9C,99,98,98,3F,98,FC, 88,08, 1667 
425 DATA 98,89,98,88,98,8C,95,0C,98,98,88,3F,54, A6, 898,98, 17BA 
438 DATA 98,99,89,99,99,95,98,99,99,95,08,3F,98,FC,98,88, 16F5 
435 DATA 09,68,69,09,99,99,98,08,98,08,99,3F,80,FC, 54, AB, 1B2C 
449 DATA 88,3F,89,3F,84, 98,99, 89, 69,95,09,99,95,08,08,98, {BB6 
445 DATA 88,2A,15,3F,84,84,88, 04,98, 2A,89,99,86, A6, 69,08, 1D12 
458 DATA 88, 2A,89,2A, 89,88, 68, 96,98, 2À,99, 09,98, A6,98, 98, 1E48 
455 DATA 98,24, 15,3F,84,84,94,8C,15,3F,15,15,54,54, 89,88, 2084 
469 DATA 15,2A,15,3F,84,84, 04,98, 15,15, 15,3F,54,A8,88,98,2225 
465 DATA 98,3F,15,3F,94,08,94,99, 15,98, 15,3F,56,FC, 89,88, 2425 
478 DATA 15,2A,15,3F,84, 94,94, 94,15, 15,15, 3F,54, AB, 88, 58, 2642 
475 DATA 15,3F,15,3F,84,89,84,88,15,88,15,3F,54,FC, 89,98, 28B3 
488 DATA 15,9F,15,3F,84, 99,94, 86, 15,69, 15, 89,54,98, 88,98, 29E9 
485 DATA 15,3F,15,3F,84,99,94,84,15,15,15,3F,54, FC, 89,98, 2C6B 
498 DATA 15,15,15,15,84, 84,84, 8C, 15,3F,15,15,54,54,88,98,2DFD 
495 DATA 15,3F,88,2A,98,88,98,98,98,2A, 15,3F,54,FC, 89,98, 3859 
588 DATA 99,15,89,15,89, 84,98, 64, 15,15, 15,3F,54,FC, 69,98, 3259 
585 DATA 15,15,15,15,84,88,84,8C,15,15,15,15,54,54, 89,89, 33C5 
518 DATA 15,89,15,99,84,99,94,95, 15,95, 15,3F,54,FC, 98,98, 35B8 
515 DATA 15,15,15,3F,84,8C,84,84,15,15,15,15,54,54, 89,98, 3742 
528 DATA 15,15,15,15,84,8C,84,8C, 15,3F, 15, 15,54,54, 98, 88, 3BDC 
525 DATA 15,3F,15,3F,84,84,84,94,15,15,15,3F,54,FC, 89,98, 3B62 
538 DATA 15,3F,15,3F,84,94,94,0C, 15,85, 15, 88,54,98,98, 98, SCAB 
535 DATA 15,3F,15,3F,84,84,84,84,15,93F, 15,24, 98,FC, 89,88, 3EE7 
548 DATA 15,24,15,3F,84,84,94,96, 15,15, 15,15,54,54,98,98, 488A 
545 DATA 15,3F,15,3F,84,89,84,6C,98, 15, 15,3F,54, FC, 89,68, 42FF 
558 DATA 15,3F,15,3F,89, 86, 99, 8,98, 2A, 88, 2A, 98, 6,88, 08, 44B3 
555 DATA 15,15,15,15,84,84,94, 94,15, 15, 15,3F,54,FC, 89, 88, 46E5 
568 DATA 15,15,15,15,84, 84, 94,94, 15,15, 15, 3F, 98, A8, 88,58, 486F 
565 DATA 15,15,15,15,84,94,84, 54, 15,9F,15,3F,54,54, 89,98, 4A23 
578 DATA 15,15,15,15,89,898,84,8C, 15,15, 15, 15,54,54, 98,98, 4B8B 
575 DATA 15,15,15,15,84,8C,84,9C,98, 15,88, 15,54,FC, 89,98, 4D79 
588 DATA 15,3F,15,3F,89, 94,98, 98, 15,85, 15, 3F,54,FC, 98,98, 4FE6 
585 DATA 99,89,68,69,66,99,99,09,98,69,69,89,956,89, 69,08, 4FEG 
598 DATA 99,99,95,98,99,69,08,99,99,90,95,09,98,99,95,08,4FEG 
595 DATA 99,99,98,09,96,88,65,98,98,99,95,88,96,80, 69,08, 4FEG 
688 DATA 89,59,99,99,99,09,98,959,99,99,99,99,98,08,69, 08, 4FE6 
685 DATA 99,88,98,09,65,09,95,08,99,99,96,09, 56,09, 59,89, 4FEG 
618 DATA 98,96,89,99,99,95,08,99,09,95,99,59,99,98,98, 908, 4FE6 
615 DATA 99,89,98,99,99,89,88,09,09,89,96,99, 99,09, 59,08, 4FEG 
628 DATA 98,59,998,95,89,95,99,99,99,65,08,69,99,09,98,08,4FE6 
625 DATA 89,99,08,99,99,99,95,08,55,98,88,96, 98,99, 99,08, 4FE6 
638 DATA 99,86,89,99,99,95,69,99,08,95,09,99,95,08,95,98,4FE6 
635 DATA 88,99,95,88,89,98,88,08,98,80,99,69,98,89,89,0#, 4FEG 

649 DATA 99,99,99,89,89,99,09,09,08,95,98,99,95,08,98,95,4FE6 


25 








645 DATA 99,99,98,69,68,00,68,89,98,09,69,59,95,89, 99,95, 4FE6 
658 DATA 99,99,89,99,98,69,09,99,99,95,99,69,98,08,59,58,4FE6 
655 DATA 99,80,98,89,85,99,99,08,99,09,08,89,89,89, 89,98, 4FE6 
668 DATA 99,88,988,89,89,90,09,95,99,99,99,99,95,08,98,95,4FE6 








ST TV 7 


DATAROUT- BAS 


18 A=RABBB:F=RAAB:L=1BB:MHILE AC:F:FOR A=A TO A+15:READ C$:K=V 
AL("R"+CS) :S=S+K+65536#(5K232767):1F A<=F THEN POKE A,k 
28 NEXT:READ D$:T=VAL("&"+D#):IF TS THEN PRINT CHR$(7);"Erreu 
r ligne";L:END ELSE L=L+5 :WEND 

38 SAVE "routroll",b,&A898,&1A8 

189 DATA 7C,C6,88,67,D8,D5, 11,58, C8, 19, Di, C9, 98, DD, SE, 58, 8765 
185 DATA DD,56,81,DD,6E, 82,DD, 66,83, 86, 18, CD, 19, BD, F3,C5, SE9D 
118 DATA E5,86,84, 1A, 77,13, 23, 18,FA,E1,CD, 88, A8,C1,18,EF, 156B 
115 DATA FB,C9,98, 89,98, 89,DD,5E, 58, DD, 56, 81, DD, 6E, 82, DD, 1BCB 
128 DATA 66,83,86, 18, CD, 19, BD, F3, C5, ES, #6, #4, 1A,E6, AA, 28, 2263 
125 DATA 96,4F,7E,E6,55,B1,77, 1A,E6,55, 28, 86, 4F, 7E, EG, AA, 2979 
138 DATA B1,77,23,13,19,E6,E1,CD, 99, AB, C1, 18,DB,FB,C9,88,316B 
135 DATA 98,89,98, 11,88, A4,DD,6E, 58, DD,66, 91,86, 18, C5,ES5, 368F 
148 DATA 86,84, 7E, 12,13, 23, 18,FA,E1,CD, 98, AB, C1, 18,EF,C9, 3D48 
145 DATA 98,89,99,11,98, A4,DD,6E,88,DD,66, 81,86, 19,C5,E5, 4244 
158 DATA 86,84, 14, 77,23,13,19,FA,E1,CD, 88, AB, C1, 18,EF, C9, 48F6 
155 DATA 88,68,98,DD,5E, 88,DD,56, 81, DD, 6E, 82, DD, 66, 83, 86, 4DFE 
168 DATA 19,CD, 19, BD,F3,C5,E5, 96,94, 7E,E6, AA, 28,99, 7E,E6,55F3 
165 DATA 55,4F, 1A,E6, AA, B1, 77, 7E,E6, 55,28, 89, 7E,E6, AA, 4F, SDAB 
178 DATA 14,E6,55,B1, 77,23, 13, 19,E8,E1,CD, #8, A8, C1, 18,D5,653F 
175 DATA FB,C9,98,98,89,DD,5E, 88, DD,56, #1, DD, 6E, 82, DD, 66, 6C82 
188 DATA 83,86, 19, CD, 19,BD,F3,C5,E5, #6, 84, 1A, AE, 77, 13,23, 71DA 
185 DATA 18,F9,E1,CD,88, A9,C1, 18,EE,FB, C9, 89, 89,88, DD, 5E, 79EF 
198 DATA 58,DD,56, #1, DD, 6E, 92, DD, 66, 83,86, 18, CD, 19, BD, F3, 8862 
195 DATA C5,E5, 86,84, 1A,E6, 88, 28,86, 4F,7E,E6, 77,B1, 77, 1A,8738 
288 DATA EG, 44,28, 86, 4F,7E,E6, BB, B1, 77, 1A, E6, 22, 28,86, 4F,BDC5 
285 DATA 7E,E6,DD,B1,77, 1A,E6, 11,28,86,4F, 7E,E6,EE, B1, 77,9636 
218 DATA 23,13,18,D8,E1,CD, 98, A, C1, 18,C5,FB,C9, DD, 7E, #8, 9E4F 
215 DATA 32, 1A,AS,32, 43, A8, 32, 7D, A8, 32, 9D, A8, 32, CS, AG, 32, A4D2 
228 DATA 82,N1,32, 2B, A1, DD, 7E, #1, 32,22, AS, 32, 4B, AB, 32, 81, AA93 
225 DATA AS, 32, A1, A8, 32,C8, A8, 32,84, A1, 32, 33, A1, C9, 89,98, BREC 
238 DATA 56,89,89,88,88,90,99,95,998,95,99,59,98,08,98,98,BSEC 
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9619 JESSICO 
QU A2:R e 11/7742 


CONSOLES MEGADRIVE A GAGNER 


COMPILATIONS OP HITS 


245/245 


SUPER HEROES 45/195 
Robocop +Indiana 

Last ninja +Espion qui m'aimait 
JAMES BOND Collection .. 125/195 
LES COSTAUDS … 85/242 
Flimbo's quest+twinlo: nsters 
R.dangerous_2+P0] syeer ane cap 
AIR COMBAT ACES 185/2 
Gunship +Bomber +Flight simulator 
+Gee bee air rallye 

LES BATTANTS 2 155/225 
R.dangerous1 & 2 +Double dragon 2 
Licence to kill +Satan+Astro marine 
AIR SEA SUPREMACY 195/295 
Silent service + Carrier command 

+ F15 + Hunt red october + P47 
KARATE ACES 155/225 
Double dragon 1 & 2 + Saboteur 2 
Last ninja 2 + Oriental games 

RAPP PACK... 125/225 
Stunt car + Vixen + Satan + P47 
ÊtTY moves + Champion spirit 
FUN RADIO 145/195 
Tortues ninja + Back to the future 2 
Gremlins 2 + Day of thunder 

TOP ACTION 125/165 
Hard drivin + Strike force harrier 
Pick'n pile + Licence to kill + Tarzan 
+ Operation hormuz 

SUPER SEGA VOL 1 175/245 
Shinobi + Super Monaco GP 

+ E-swat + Golden axe + Crackdown 
MAX 175/245 
St dragon + Turrican2 + Swiv 
+Nighishift 

CAPCOM COLLECTION ….175/245 
Strider + Un squadron + Led storm 
Forgotten world +Ghouls and ghosts 
Dinasty + Strider 2 + Duel 

2EME SENS 
Pinball magic + Bubble ghost + 
Freedom + arr ele + Superski 

LE TEMPS DES HEROS ….. 195/245 
North and south + Prince of Persia 
Moonblaster 

LES STARS 195/245 
Skweek + Builderland + Bumpy 
+Superskweek 
SUCCES STORY 





















CR 165/225 
Loderunner + Skweek + Moonblaster 
ULTIMATE Collection 155/242 
Zombi +Pro tennis tour + AMC 

+ Stuntcar racer + After the world 

+ Skate war 

GRAND STAND 145/195 
World c.leaderboard +Pro tennis 

+ Gazza + Continental circus 
VIRTUAL WORLDS … 155/195 
Driller + Castel master + Darkside 


+ The crypt 
ADDICTÉD TO FUN .… 105/155 











242 
Alive + Sdaw + Manoir de morteville 
POWER UP ss .… 155/225 
Turrican + Chase hq + X-out 
+ Rainbow island +Altered beast 
OP 20 185/245 
Licence to kill+P47+C.Chaplin 
+Batty+Game over 2+Ace 1+Rax 
Mange cailloux+MLM 3D + G.P 500 
AsparGP + Devilcastle + Hotshot 
+ PAU MAR +Buggy 2 +Zaxx 
+3D Grand prix +Battle Valley 
+Super ski +Light force 
COMPIL.EXTRAORDINAIRE195/245 
Turbo cup + Sapiens + Skweek + Zox 
+Maracaibo + Mobileman + Bumey 
+ Cobra + Bactron + Aigle d'or + Ye 
MEGA MIX .145/225 











adow 


esererese .… 152/249 
Crazycars2+Shufflepuckcafe+Mystical 
+ Pinball magic+Light corridor 
SUPER SIM PACK ……….….. 145/195 
Snowstrike + Heavy metal+ Italy 90 
+ Turbo out run 
MONDE DES MERVEILLES 145/195 

















Super ski + Bomber + Kick off + Stunt 
car racer +Pro tennis tour 








BIG BANG 2 .… 125/152 
Rick dangerous +Chigago + Highway 
patrol +Beyond ice palace 

RJ 1. .… 152/249 





North&s. 59 
+Fire and forget +Teenag 
LIVRET DE FAMILLE 
Manoir de morteville + 
+ Rody & mastico 
COLLECTION N°2 . 
Dragon ninja + Beac 
le mans + B.Bobble + Nonen or + 
Arkanoid2 + Renegade + Matchday 2 
+ Basket master +Super sprint 

+ Flying shark 

STARS D'HOLLYWOOD …. 142/192 
Batman + Indy Action + Robocop 

+ Ghostbusters 2 

LES GEANTS DU SPORT .. 192/259 
Kick off + Great courts + TT Race + 
Football Manager 2 + 3D Grand Prix 
+ Een Hugues + Bobsleigh 

LES DIEUX DU CIEL ……….192/259 
Chuck Yeager + Ace 182 + ATF 

+ Strike Force Harrier +Tomahawk 
+Hard Drivin + Powerdrift 

15 MEGASTAR .… 182/259 
Navymoves + Exolon + Buggy 2 

+ Bombjack + Commando + 1942 
+Battle valley + Air Wolf + Bati 
Scoobidoo + Saboteur + Battle ship + 
Ghost & Goblins + Crépuscule Naja 
+ Talisman d'Osiris 
LES FOUS DU FOOT 175/225 
Emelyn Hugues + Foot Manager 2 
Fighting Soccer +Kick off 
LÉS JUSTICIERS 2 .… 145/195 
Ghostbusters2+0.Thunderbolt+Cabal 














3D CONSTRUCTION KIT 
ALIEN STORM se 
ALI GATOR 
ALNE:4202 à 
ARMALYTE Ë 
ART DE LA GUERRE 
B.CLOUGH EUROSOCCER 
BACK THE GOLDEN AGE 
BACK TO THE FUTURE 3. 
BADLANDS … 
BAT nette 
BATTLE COMMAND .. 
BIG RUN … h 
BLUES BROTHERS 
BOOLY nt 
BOXING MANAGER …... 
BRIDGE SIMULATOR 
BUILDER LAND 
CAPTAIN PLANET 
CARMEN SAN DIEGO 


CHESSMASTER 2175 
sms 105/155 
DEFENDER OF THE Crown 
.. 145/195 


DARKMAN 


DISC 7 
EUROPEEN super league 
EXTERMINATOR 2 h 
EXTREME 

F16 COMBAT PILOT 
FINAL FIGHT 
FUGITIF 
GAUNTLET 3 
GOLDENAXE … 





GRAND PRIX 500 CC 2 
!195/225 
105/155 


GUARDIANS 
HERO QUEST 
HYDRA 5 
INFERNAL HOUSE 
IRON LORD 

KICK OFF 2 

LA SECTE NOIRE 
LOOPZ'niinnsianene 
MANCHESTER U. EUROP. 
MEGA PHOENIX 
MERCS ire 
METAL MASTER .…. 
MYSTICAL 
NEVERENDING 
NIGHT SHIFT ! 
PANZA KICK BOXING 
PITFIGHTER 
PREDATOR 2 
PREHISTORIK 

RACE DRIVIN 
RAMPARTS 
REVELATION 
ROBOZONE 
ROBOCOP 2 
SHADOW DANCER 
SHERMAN M4 

SIM CITY 

SLIDERS …. d 
SPIRIT OF EXCALIBUR 
STAR CONTROL 

SUPER MONACO GP 
SUPER OFF ROAD RACER 
SUPER SPACE INVADERS 
SWAP 
SWITCHBLADE 

TARGHAN 

TERMINATOR 2. 
TORTUES NINJA 2 
TENNIS CUP 

THE SEARCH OF SHARLA 
THE SHOE PEOPLE 
THUNDER BURNER 
THUNDERJAWS eelses 
TRACKSUIT MANAGER 2. 
TURRICAN 2 
ULTIMATE GOLF 
WRATH OF THE DEMON 

















4j; 


105/155 
.149 
.195 
97/155 
245 
97/145 
97/145 
105/145 


.. 97/145 


245 


.105/155 
.… 97/145 


155/195 
145/195 
145/195 

.. 215 


.145/195 
.. 105/155 


195 
.225 


.195 


105/155 


.-125/165 
.… 125/155 
.. 142/195 


105/155 
225 


..105/155 


105/145 
-195 


105/155 
195 
172/220 
135/169 
.. 175 
105/145 
105/155 
97/145 


.. 145/195 
.. 145/195 
.. 125/162 
.105/155 


97/155 
195/245 
105/175 
105/145 
135/175 
105/155 


:.105/155 


97/145 
105/125 
97/145 
105/155 
165/225 
145/195 
195 
105/155 
105/155 
105/145 
105/145 
105/175 
195 


.… 97/145 


195 


105/155 


105/155 
159/189 
125/165 
105/155 
195/225 


.105/145 


97/145 
105/155 
105/145 

97/145 


cou 








BOITIER DS40LA 30x3" 99 
BOITIER JSY 48 48x3" ….. 109 
BOITIER DD50L 50x5.25" .. 119 
QUENE 
Tous les rubans NB les 3 144 
CITIZEN 120D . 59 
CITIZEN 120D 59 
DMP 2000/3000 59 
DMP 2160/3160 59 
DMP 4000 59 
DMP 1 .….… us 59 
EPSON LX800/LQ800 59 
MT 80. * 59 
NEC P2+ 59 
PCW 8256/8512 59 
STAR NL 10. 59 
STAR LC:10. 4 59 
CITIZEN SWIFT 24/9 59 





UTILITAIRES 
ADVANCED OCP ART STUDIO 245 
APPRENDRE L'ASSEMBLEUR . 295 
AUTOFORMATION BASIC 290 
CARTOUCHE basic AMSTRAD … 69 
COMPTABILITÉ ALIENOR 1550 
COURS DE SOLFEGE 1 .….145/195 
COURS DE SOLFEGE 2... 145/195 


DESSIN TECHNIQUE se DAS 
DESSIN TECHNIQUE TURBO 715 
DISCBASE : 199 
DISCOLOGY V.6.0 350 
ECHOSOFT 395 
EQUINOXE::.: sci .299 
FACTURATION + STOCK 1550 
FACTURES FACILES 285 
GESTION DOMESTIQUE 249 
GESTION BANCAIRE 245 
GESTION DE FICHIER 290 
GRAPHEUR 275 
GRAPH-MASTER 249 
HERCULE 2 “ 395 
HOUSE MUSIC SYSTEM. 350 
IMPRESSION 240 
IMPRIM'IMAGE .… 280 
INTEGRE (L') 1 .425 
INTERPRETE 2 .… 280 
KWIKFILE .199 
LA SOLUTION .595 
MAXAM disc . 299 
MAXAM cassette 275 
MAXAM rom F 399 
MENTEL minitel malin + câble . 395 
MEPHISTO shras .. 205 
MULTIFACE 2 + CPC. sscee 495 
MULTIFACE 2 + CPC PLUS .…... 525 
MUSIC PRO .. 225 
STATGRAPH . 350 
THE INSIDER .… 149 
RAMDOS 279 
RODOS 299 
ROMDOS 299 
ROMBOARD 349 
PACK GESTION 675 
PACK PRINTER 6128 475 
PROTEXT disc 349 
PROTEXT cassette 295 
PROTEXT rom 399 
PAGE PUBLISHER PAO 325 
PAGE publisher PICTURE disc . 149 
PSYCHO TEST 185 
SPRITES ALIVE .… 849 
TASWORD + MAIL MERGE 425 
TRAFFIC CB 189 
TRAFFIC EMISSION 249 
TRAFFIC SWL 249 
PORTRAIT ASTRAL 295 


MICRO CLUB 99F 


1 - ARKANOID 1+2 

2 - GAUNTLET 1+2 

3 - OUT RUN +ROAD BALSTER 
4 - END.Racer +SUPERHANGON 
5 -IK+YIE AR KUNG FU 

6 - GRYSOR+GREEN BERET 

7 - CALIFORNIA +Winter Games 
8 - STREET Fighter +Tiger Road 
9 - PLATOON+PREDATOR 

- CRAZY Cars+SUPER SPRINT 
- B.BOBBLE+FLYING SHARK 

- ACE OF ACES+INFILTRATOR 
- RENEGADE+TARGET REN 

- TOP GUN+SLAP FLIGHT 

- ROLLING THUNDER+RYGAR 
- D.THOMPSON+SUOER TEST 
- Matchday 2+Basket MASTER 
- WONDERBOY+WIZZBALL 

- QUARTET+RAMPAGE 

N°20 - HYPERSPORT+TRACKFIELD 
- THUNDERBLADE+1943 

- Road Blaster + Metrocross 


CLLLLELELSELELRESSLEZ 
o 


Housse complète clavier+écran 


HOUSSE 464 cpc 99 
HOUSSE 6128 cpc 99 
HOUSSE 464/6128 PLUS 109 
HOUSSE DISC FD1 ..55 
HOUSSE DMP 2160/3160 79 
HOUSSE DMP 4000 .79 
HOUSSE CITIZEN 120 D. 79 
HOUSSE STAR NL 10 79 
HOUSSE STAR LC 10 19 
HOUSSE PCW 8256/8512 129 


PC-TRANS see age sed o ave e 063 6 ee à 
Extraordinaire logiciel de transfert de fichiers à partir de votre 


CPC vers IBM-PC ou ATARI-ST et vice-versa 
D'une utilisation facile, rapide et fiable. 





D D D CUS DURS DUR CUS DUR CURE DURS CUS COR CUS GUN GUN CU Ou 
NOUS LIVRONS TOUJOURS LES DERNIERES VERSIONS 


BON DE COMMANDE £NWPRESS 
GAGNEZ DU TEMPS ! Commandez par 


à retourner à 


D 43,51,61.30 - 92.97.2200 


EDUCATIFS 


CEDIC-NATHAN 
ALLEMAND DEBUTANT 6/5e 
ALLEMAND CONFIRME 4/3e 
ANGLAIS CONFIRME 4/3e 


ANGLAIS DEBUTANT 6/5e : 5 


225 
225 


-225 


225 


DONALD alphabet magique 145/195 
Apprends moi compter MAT/CP 225 


Apprends moi à écrire CP/CE 225 
Apprends moi à lire 1 MAT/CP .225 
Apprends moi à lire 2 CP .225 
ECRIRE sans faute vol 1 .225 
ECRIRE sans faute vol 2 225 
LABYRINTHE D'ERRARE 225 
Labyrinthe aux cent calculs 225 
LABYRINTHE ANGLOMANIA 1 .225 
LABYRINTHE ANGLOMANIA 2 .225 
LANGUE FRANCAISE CE1 225 
LANGUE FRANCAISE CE2 225 
LANGUE FRANCAISE CM1 225 
LANGUE FRANCAISE CM2 225 
LANGUE FRANCAISE 6e .… 225 
LANGUE FRANCAISE 5e .… 225 
LANGUE FRANCAISE 4e 225 
LANGUE FRANCAISE 3e 225 
NATHAN MATHS 6/5e 225 
NATHAN MATHS 4e 225 
NATHAN MATHS 3e ste 225 
NATHAN FRANCAIS CP/CE1 225 
NATHAN FRANCAIS CE/CE2 225 
NATHAN FRANCAIS CM1 225 
NATHAN FRANCAIS CM2 225 
NATHAN MATHS CP/CE1 225 
NATHAN ECOLE MATHS CE2 ..225 
NATHAN ECOLE MATHS CM1 ..225 
NATHAN ECOLE MATHS CM2..225 
MICRO C 
ALLEMAND PRIMAIRE 199 
ANGLAIS PRIMAIRE 199 
ITALIEN PRIMAIRE 199 
ESPAGNOL PRIMAIRE 199 
ANGLAIS 4/3e 199 
DECLIC LECTURE 199 
EDUC.MATERNELLE 1 199 
EDUC.MATERNELLE 2 199 
FRANCAIS CM 170/199 
GRAMMAIRE 6/5e 199 
LECTURE CP 199 
MATHS 2e CYCLE 1 199/250 
MATHS 2e CYCLE 2 170/199 
MATHS 3e 170/199 
MATHS 4e 170/199 
MATHS 5e 170/199 
MATHS 6e 170/199 
MATHS CP 170/199 
MATHS CE 170/199 
MATHS CM 199/250 
ORTHO CM 199 
GENERATION 5 
DESTINAT. MATHS CE 1/2 235 
DESTINAT. MATHS CM 1/2... 235 
DESTINATION MATHS 6/5e .…... 235 
4 SAISONS DE L'ECRIT CE/CM 235 
4 SAISONS DE L'ECRIT 6/3e 235 
SECRET ENGLAND 6/5e 249 
SECRET ENGLAND 4/3e 249 
DEUTSCHES GEHEMNIS 6/5e .249 
DEUTSCHES GEHEMNIS 4/3e .249 
ORTHO CE1/CE2 .. 249 
ORTHO CM1/CM2 249 
ORTHO 6/5e 249 
ELUD VTA 
ORTHOGUS 1.CM/6e .. 245 
ORTHOGUS 2. 6/3e 245 
MATHEX CE/CM 245 
MATHEX 6/5e 245 
MATHEX 4/3e 245 
MATHEX 6/3e ne -295 
PACK REVISION CE/CM . 350 
PACK REVISION 6/5e. 350 
PACK REVISION 4/3e …. 350 
(BLLAINDIS 
AUTOFORM BASIC+disc(plus) . 149 
102 PROGRAMMES CPC ….….. 135 
BIEN DEBUTER CPC ë 99 
BIEN DEBUTER 6128 PLUS 78 
LIVRE BASIC 6128 PLUS 99 
LIVRE LANGAGE MACHINE 129 





ACCESSOIRES 
CASSETTE D'AZIMUTAGE 
COPY HOLDER 
FILTRE ECRAN 14" 
SUPPORT IMPRIM. 80 Col 
SUPPORT MONITEUR 12-14" 
MOUSE MAT (tapis) 


ETIQUETTES DISC 3 les 100 .. 


119 
189 
169 
149 
139 


65 
30 




















CARTOUCHES GX4000 








BAD LANDS ….. 4 225 
BARBARIAN 2 .. 225 
BATMAN ss 205 
CHASE HQ .… 225 
CRAZY CARS 2 et 22D. 
EPICS WORLD OF GAMES 225 
FIRE AND FORGET 2 225 
KLAX ist 225 
NAVY SEALS . 225 
NO EXIT …. 225 
PANG .….. 225 
PLOTTING .225 
PRO TENNIS TOUR 225 
ROBOCOP 2 .. 225 
SPIDERMAN : .… 225 
SWITCH BLADE . su 225 
TENNIS CUP 2 .… 225 
WILD STREET 225 
PERIPHERIQUES 
SCANNER DART K7/DISC ……. 795 
DIGITALISEUR VIDI .… 749 
LECTUER CASSETTE+CABLE .245 
LECTEUR DISQUE DDI-1 1595 
MULTIFACE 2 + CPC PLUS 525 
MULTIFACE 2 + CPC .. 495 
SYNTHE VOCAL DISC ou K7 545 
SYNTHE VOCAL+HP DISC/K7 .. 625 
7 LOGICIELS Educt. vocaux 195 
EXT.MEMOIRE 64K/464 499 
EXT.MEMOIRE 256K/6128 1090 
CRAYON OPTIQUE Cassette …. 225 
CRAYON OPTIQUE Disquette … 325 


JOYSTICKS 


PHASOR ONE (+MONTRE) 109 
COMPETITION PRO 149 
PRO 5000 ET 149 
QUICKJOY JUNIOR .. 59 
QUICKJOY 2 75 
QUICKJOY 2 TURBO 135 
QUICKJOY 3 SUPERCHAR 99 
QUICKJOY 5 SUPERBOARD …. 192 
QUICKJOY IR INFRAROUGE …. 390 
QUICKJOY M5 IBM XT/AT. 195 
QUICKJOY VI JETFIGHTER 145 
QUICKJOY TOPSTAR …. 275 
QUICKJOY MEGABOARD 315 
QUICKJOY SEGA FIGHTER 192 
QUICKJOY NI-5 Nintendo 159 
QUICKJOY NI-PRO Nintendo … 199 
KONIX SPEEDKING 109 
KONIX SPEEDKING Autofire 125 
KONIX THE NAVIGATOR 145 
STING-RAY 149 
MANTA-RAY .129 
(Z\IER) 
ADAPT.NOUVEAU BUS CPC …. 125 
DOUBLEURDE JOYSTICK . 49 
DOUBLEUR DE BUS …. 159 
CABLE IMPRIMANTE .. 149 


RALLONGE ECRAN/CLAVIER .. 149 
RALLONGE ECRAN/CLAVIER + 149 
CABLE EXTENSION JOYSTICK . 49 


CABLE FD 1 à 139 
CABLE MAGNETO CASSETTE … 49 
CABLE MINITEL CPC 55 
CABLE PERITEL CPC AAA ES 


RALLONGE (ALIM+VIDEO 464) 109 
CABLE GX4000 à CPC 6128 … 119 
















BATMAN 
BEETLEQJUICE 
BOMBER BOY . 
BO JACKSON. 
BUBBLE BOBBLE 
BUGS BUNNY 2 
BURGER TIME DELUXE 
BURAI FIGHTER 
CADILLAC 2 
CASTELIAN 
CASTELVANIA 2 
CHASE HQ 
CHESS MASTER 
CHOPLIFTER 2 
CONTRA 

CYCLE GRAND PRIX 
DAYS OF THUNDER 
DICK TRACY 
DOUBLE DRAGON 
DRAGON'S LAIR 
DUCK TALES 

F1 SPRIT 

FINAL FANTAZY . 
FUNNY FIELD sé 
GARGOYLE QUEST … 
GHOST N GOBBLINS 
GHOSTBUSTERS 2 
GREMLINS 2 . fe 
IN YOUR FACE 
ISHIDO É diras 
JORDAN VS BIRDS 
KLAX 

























KWIRKenr nt 229 
MALIBU BEACH VOLLEY 229 
MARU'S MISSION … 229 
MEGAMAN sa 229 
MERCENARY FORCE .. 229 
MICKEY MOUSE 2 229 
MYSTERIUM .259 
NAVY SEALS 259 
NBA ALL STAR 259 
NEMESIS 2 . 259 
NINJA BOY 229 
OPERATION C 259 
PACMAN . 229 
PITMAN 229 
PUNISHER . 259 
PUZZNIC . 229 
RADAR MISSION . 229 
RESCUE PR.BOBLETTE . 229 
R-TYPE É 229 
ROBOCOP .239 
ROCKMAN WORLD .259 
ROLANS CURSE .229 
SHANGAI . 229 
SKATE OR DIE .229 
SNOOPY tsmntes 259 
SOLAR STRIKER . 229 
SOLOMON'S CLUB .229 
SUPER MARIO LAND 192 
SWORD OF HOPE .229 
TAIL GATOR insu) 
TEENAGE M TURTLE NINJA …. 229 
TETRIS er 229 
THE SIMPSONS .259 
TOUR DE TRASH . .259 


TURBO RACING 
WARRIOR 


SUPER PROMO 


ADAVANCE OCP ART SUTDIO 


IMPRIMANTE DMP 3160 


+ Protext 


LA SOLUTION Textomat +Datamat +Calcomat 


Me) Eule delle le) #5 
LECTEUR CASSETTE + 
PORTRAIT ASTRAL 

ne 01Ke]c) AAA SRE ES 


REF |par 10 | par 20 ] 

169F  310F) 

| 3" 172 DFDD, 69 F | 130F | 
5"1/4DFDD, 56F  105F 


3" CF2 





QU AA TS 107 102 
(o7,\= 18 25e 





par 50 | DISQUETTES 3" 


Pour AMSTRAD 


745F) F 
200 F F90 
250 F ] * à l'unite par 50 


Disquettes certifiées 100% garantie à vie.Livrées avec enveloppes plus etiquettes 





L 





LS VESSICO - Bp693- 06012 NICE CEDEX 














Montant | LjJe joins un chèque ou mandat lettre 
Le paie à réception au facteur 
Je paie par carte bleue et je complète les 2 lignes ci-dessous 


1-10 


+ 25F 





























TITRES (garantie échange immédiat) Qte | Prix 
| 
| carte bleue 
| 
| | NOM 
PORT :LOGICIEL JEUX 20F S/TOTAL NET RUE 
IMPRIMANTES + CONSOLES 60F PORT | 25 VILLE 
ORDINATEURS 120 F TOTAL | 
UTILITAIRES + ACCESSOIRES  25F 
DOM TOM + ETRANGER + 60F 


PAIEMENT ETRANGER EXCLUSIVEMENT PAR MANDAT INTERNATIONAL 


GARANTIE 1 AN SUR LES LOGICIELS 


date d'expiration 


PRENOM 


CODE POSTAL | 1 


BOUTIQUE A NICE HOLLYWOOD STAR 8 BD JOSEPH GARNIER 





précisez votre ordinateur JDISC _|K7 |] 


En rs 
SIGNATURE OBLIGATOIRE 









GRAPH-MASTER 249 F 


CREATION DE 10 TYPES DIFFERENTS DE DIAGRAMMES! 
















































DISCBASE .199 F 
LE SEUL GESTIONNAIRE ULTRA RAPIDE DE DISQUETTES ! 


" 99 % DES UTILISATEURS DE DISQUETTES TROUVERONT 
QUE DISCBASE EST INDISPENSABLE! 

DISCBASE EST UN GESTIONNAIRE DE BASE DE DONNÉES 
SPECIALISE DANS LE CLASSEMENT, LA RECHERCHE DE 
DISQUETTES ET DES FICHIERS QU'ELLES 
CONTIENNENT.POUR CONSTRUIRE VOTRE BASE DE DON- 
NÉES VOUS N'AVEZ QU'A INSÉRER VOS DISQUETTES 
DANS LE LECTEUR, LES UNES A LA SUITE DES AUTRES ET 
LE PROGRAMME LIRA ET ENREGISTRERA LEUR 
CATALOGUE.VOUS POUVEZ DONC RECHERCHER ET 
RETROUVER EN MOINS D'UNE SECONDE LA DISQUETTE 
DANS LAQUELLE SE TROUVE UN FICHIER 

PLUS DE PAGAILLE, PLUS DE TEMPS PERDU EN 
RECHERCHES INUTILES ! 

* JONGLE COMME UN CHAT AVEC LES CATS *MET À JOUR 
AUTOMATIQUEMENT LA LISTE DES CATALOGUES 
"LISTE ENTIEREMENT LES DISQUETTES ET LES FICHIERS 
“IMPRIME LES LISTES ET CATALOGUES 













*HISTOGRAMME *HISTOGRAMME ANNUEL *HISTOGRAMME 
ANNUEL 3D *DIAGRAMME PIE *DIAGRAMME DES TEMPS 
*DIAGRAMME DE FONCTIONS COMPLEXES ‘GRAPHIQUE 
EN LIGNES ‘GRAPHIQUE EN BARRES * BAR GRAPHS 
COMPARATIFS * 

IL Y À 6 PROGRAMMES DE BASE SUR LE MENU PRINCIPAL 
D'OÙU TOUS LES AUTRES SONT SÉLECTIONNES. 
INCONTESTABLEMENT LE GRAPHEUR LE PLUS 
COMPLET,LE PLUS PUISSANT SUR CPC 

IDEAL COMPAGNON DES MATHEUX DE BAZ ET DE LA FAC 
AINSI QUE POUR LE MONDE DES AFFAIRES. 











Gagnez de l'argent ! faites comme 
les pros, utilisez le meilleur logiciel 
de création de jeux. 

SPRITE ALIVE DISC 349 F 


SI VOUS VOULEZ RÉALISER VOS PROPRES JEUX AYANT UN 
ASPECT PRO 

C'EST SPRITES ALIVE QU'IL VOUS FAUT 

* BASIC SIMPLE * DETECTEUR DE COLLISIONS VRAIES 

* MOUVEMENT SOUPLE PIXEL PAR PIXEL 

* COMPATIBLE SOURIS, JOYSTICKS, CLAVIER 

* 23K DE MÉMOIRES PROGRAMMÉES 

* 64 SPRITES SUPER-CHOUETTES * MODE LABYRINTHE 
AUTOMATIQUE 

* COMMANDES AUTOMATIQUES DE MISSILES 

* 70 COMMANDES SUPPLÉMENTAIRES EN BASIC 

* PUISSANT, HYPER RAPIDE GRACE AU COMPILER 

* 6 PROGRAMMES DE DÉMO BASIC.+ 2 DE DÉMO COMPILER. 









KWIKFILE 199 F 


UN PUISSANT GESTIONNAIRE DE DONNEES, POUR LE 
PRIX D'UN SIMPLE JEU ! 


UNE BASE DE DONNEES A FAIBLE PRIX POUR UNE 
MANIPULATION RAPIDE ET AISÉE DE FICHIERS DE 
DONNÉES 

CARACTERISTIQUES : UTILISATION À 100% PAR MENU 

* JUSQU'A 19 RUBRIQUES PAR ENREGISTREMENT * TOTAL 
DES RUBRIQUES * LONGUEUR DE TOUS LES CHAMPS DE 
VARIABLES ‘28 CARACTÈRES PAR RUBRIQUE(PLUS POSSI- 
BLE MAIS PAS AFFICHÉ) * JUSQU'A 22000 OCTETS PAR 
CHAMP * TRI ALPHA-NUMÉRIQUE SUR TOUS LES CHAMPS * 
RECHERCHE RAPIDE PAR TOUCHE QUI AFFICHE SUR 
L'ÉCRAN TOUS LES ENREGISTREMENTS CONTENANT LES 
DONNEES DÉSIRÉES * IMPRESSION DE TOUTES LES RUBRI- 
QUES DANS N'IMPORTE QUEL ORDRE ‘RÉPONSE AVEC OÙ 
SANS NOM DE CHAMP * CALCULS DANS LES RUBRIQUES 
(IDEAL POUR TENUE DE STOCK...) POSSIBILITÉ DE CHAN- 
GER DE FORMULE DE CALCUL DANS TOUTE RUBRIQUE ET 
DEN JOUTER * CATALOGUE DE FICHIERS GÉRÉS PAR 
MENU 








MAXAM  ASSEMBLEUR-DÉSASSEMBLEUR 
ASSEMBLEUR-DÉSASSEMBLEUR, SYSTÈME COMPLET DE 
DÉVELOPPEMENT DU Z 80 
LE NEC + ULTRA DU PROGRAMMEUR 
MENU DÉROULANT : LOAD, MERGE, SAVE, PRINT, FIND 
REPLACE, ETC 
ROM : 399 F DISC : 299 F 
















CASSETTE : 275 F 

























REPRODUISEZ DES IMAGES GRÂCE AU SCANNER DART 


UN OUTIL REMARQUABLE DE REPRODUCTION D'IMAGES, DOCUMENTS DESSINS, PHOTOS, ETC 

COMPATIBLE: AVEC * DMP 2000/2160/3000/3160° AMX PAGEMAKER, SOURIS ET CRAYON.* CPC DISK OU CASSETTE ( À PRÉCISER) 
DESCRIPTIF : AGRANDISSEMENT X1 - X2 - X3 - X6 * ZOOM * PRINT * LOAD * SAVE * COPY * EDIT * RAJOUT DE TEXTE * 1 OÙ 2 ECRANS 
IMPRESSIONS DEMI OÙ PLEIN FORMAT * ROTATION ECRAN DE 180 

























"L'ATELIER DE L' ARTISTE" THE ADVANCED OCP ART STUDIO 


OCP VOUS PERMET DE CREER UNE IMAGE, DE LA REDUIRE, AGRANDIR, COUPER, COLLER, INCLINER.COLORIER GRACE 
AUX 8 PISTOLETS, 16 PINCEAUX ET BROSSES A PEINTURE INCORPORES, PROJECTION D'OMBRES ET DE FONDS POSSIBLE 
SACRÉ MEILLEUR LOGICIEL DE DESSINS ET GRAPHISMES SUR CPC. 


SUPER-PROMO 695 F 


COMPRENANT : THE ADVANCED OCP ART STUDIO + UNE SOURIS GENIUS MOUSE + UN TAPIS SOURIS + UNE 
SOURIS HOUSE + UNE INTERFACE SOURIS 































SI VOUS SOUHAITEZ GELER UN PROGRAMME , LE COPIER 
ENSUITE SUR DISQUETTE OU CASSETTEAUTOMATIQUEMENT 
EN APPUYANT SIMPLEMENT SUR UN BOUTON, LA SEULE ET 
UNIQUE SOLUTION C'EST MULTIFACE 2. 
D'UNE UTILISATION SIMPLE À LA PORTÉE DE TOUS, GUIDE 
PAR UN MENU DÉROULANT 
APRES AVOIR LANCE LE PROGRAMME, VOUS POURREZ 
LE STOPPER , LE SAUVEGARDER OÙ ENCORE L'ETUDIER 
ET LE DÉTAILLER À VOTRE CONVENANCE, GRACE AU 
MULTI - TOOLKIT INCORPORE DANS MULTIFACE 2. 
EN APPUYANT SUR RETURN OÙ EN LE RECHARGEANT LA 
FOIS SUIVANTE IL REPRENDRA AUTOMATIQUEMENT, DEPUIS 
L'ENDROIT OU VOUS L'AVEZ GELE 
495 F 


MULTIFACE2 + CPC 464/6128 …. 
MULTIFACE2 + CPC 464/6128 PLUS . 525 F 








THE INSIDER svbnbss .149F 


L'INDISPENSABLE COMPAGNON DU MULTIFACE 2 
VOULEZ-VOUS TOUT CONNAÎTRE À L'INTERIEUR D'UN PROGRAMME ! 
BRANCHEZ THE INSIDER, avec MULTIFACE 2, LANCEZ UN PROGRAMME, 
GELEZ-LE ET ALORS THE INSIDER VOUS RÉVEÉLERA TOUT : IL DÉSASSEMBLE 
COMPLÉTEMENT, CHERCHE ET TROUVE TEXTES ET CODES, AFFICHE ET MO- 
DIFIE RAM ET REGISTRES DU Z 80, IMPRIME. 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNONNNNUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 


VIDI capte et transfère plus de 6 images /sec. 
directement de votre magnétoscope, caméra, télé 


LOL UT) CENT IL ET CIS 
Sauvegarde sur cassette ou disquette 
Travaille en MODES O0, 1 ou 2 
16Ko de mémoire vidéo additionnelle 
Contrôleur d'images incorporé 
Compatible OCP ART STUDIO 


Livré avec câble RCA, BNC + câble PERITEL 





PAGE PUBLISHER PAO: 325 F 


* PUBLICATION ASSISTÉE PAR ORDINATEUR 6128 

* CRÉEZ TRES FACILEMENT VOS DOCUMENTS, POSTERS, 
PETITS JOURMAUX, LOGOS, FANZINES, ETC... 

* PAGE PUBLISHER P.A.0. PERMET LE CONTROLE, AUSSI 
BIEN DE L'IMPRESSION QUE DU GRAPHISME 


DMP 2160/3160 

* GÉRÉ PAR ICONES ET MENUS, PAGE PUBLISHER P.A.O 
PEUT ÊTRE PILOTE PARC CLAVIER OÙ JOYSTICK 

* RECONNU COMME LE N°1 DE LA MICRO EDITION PAR LA 
PRESSE EN GB POUR SON RAPPORT QUALITE/PRIX 
PAGE PUBLISHER PICTURE DISC 149 F 











* COMPATIBLE TOUTES IMPRIMANTES MATRICIELLES, EPSON, 





PROTEXT TRAITEMENT DE TEXTE 


AMSTRAD CPC 100% N°40 * PROTEXT BRILLE PAR SES 
PERFORMANCES 

SANS AUCUN DOUTE LE MEILLEUR TRAITEMENT DE TEXTE 
SUR CPC, RECONNU COMME LE N° 1 PAR TOUTE LA PRESSE 
INFORMATIQUE : 
COMPLET, PUISSANT, HYPER RAPIDE, D'UTILISATION TRÈS 
FACILE. COMPATIBLE TOUTES IMPRIMANTES 

ROM : 399 F CASSETTE : 295 F DISC : 349 F 








SUPER PROMO 


IMPRIMANTE STAR LC200 COULEUR + DRIVER 2525 F 
IMPRIMANTE STAR LC200 COULEUR + DRIVER 

+ ADVANCED OCP ART STUDIO 2690 F 
DRIVER IMPRIMANTE COULEUR (LC10 OU LC200) 199 F 


‘ce driver permet d'imprimer toutes les images couleurs du CPC 
vers votre imprimante( LC10 ou LC200 exclusivement) 








THE MUSIC MACHINE .......595 F 


‘PERMET DE COMPOSER DE LA MUSIQUE, SAUVEGARDER 
EDITER, CHARGER, SONS, RYTHMES ET INSTRUMENTS 

* C'EST AUSSI UNE CHAMBRE D'ECHOS AVEC PLUSIEURS 
EFFETS. THE MUSIC MACHINE SERT EGALEMENT DE 
BATTERIE, 8 TONALITES DE DRUM, SONT PROGRAMMÉES 
MAIS ON PEUT EN REPRODUIRE D'AUTRES 

* COMPATIBLE 100% MIDI * SORTI HIFI + MICRO 

* DISQUETTE OÙ CASSETTE 











PORTRAIT ASTRAL 295 F 


CERTAINEMENT LE MEILLEUR LOGICIEL D'ASTROLOGIE 
RÉALISÉ PAR LE PLUS GRAND ASTROLOGUE FRANCAIS 
PORTRAIT ASTRAL VOUS ENCHANTERA ET VOUS 
PERMETTRA DE MIEUX VOUS CONNAITRE 

THEMES ASTRALS - HORLOGES ASTRALES - PLANETES 
ASTRALES ETC,ETC 








AUGMENTEZ LA MEMOIRE DE VOTRE CPC ! 
AVEC DK'TRONICS 
EXTENSION MÉMOIRE 64K POUR CPC 464/664 499 F 


EXTENSION MÉMOIRE 256K POUR CPC 6128 1090 F 
CRAYON OPTIQUE CASSETTE 225 F 
CRAYON OPTIQUE DISQUETTE ; 325 F 


EXTENSION MEMOIRE: AUGMENTE DE 64 K OÙ 128 K LA 
CAPACITÉ MÉMOIRE DE VOTRE CPC : 
CRAYON OPTIQUE : PERMET D"EXPLOITER LES CAPACITES 
GRAPHIQUES DU CPC 








LECTEUR 3.50/ 800 K POUR CPC 


INDISPENSABLE POUR LES USAGERS AYANT BESOIN DE 
CAPACITÉ DE STOCKAGE 800 K * 80 PISTES * DOUBLE FACES 
POUR L'UTILISER PLEINEMENT IL EST NÉCESSAIRE D 'AVOIR 
UN DES 3 LOGICIELS SUIVANTS RODOS * ROMDOS * RAMDOS 
* ROMDOS ET RAMDOS SONT DEUX LOGICIELS IDENTIQUES 
SAUF QUE ROMDOS EST EN ROM ET NÉCESSITE 
L'UTILISATION D'UN ROMBOARD POUR SON INSTALLATION 
COMME RODOS 

*RAMDOS EST LIVRÉ EN DISQUETTE. ILS SONT TOUS 
COMPATIBLES AVEC AMSDOS, CPM 2.2 ET CPM + 

* RODOS LIVRE EN ROM EST LE PLUS COMPLET, IL OFFRE 
PLUS DE 50 COMMANDES SUPPLÉMENTAIRES, CONFIGURE 
AUTOMATIQUEMENT LE DRIVE B, OFFRE UN SILICON DISK, 
UN BUFFER D'IMPRIMANTE, L'ACCES DISK EST 3 FOIS PLUS 
RAPIDE, COMPATIBLE AVEC AMSDOS, IDEAL POUR LES 
UTILISATEURS EXPÉRIMENTES 

CEPENDANT SI C'EST UNIQUEMENT LE STOCKAGE QUE L'ON 
RECHERCHE NOUS VOUS CONSEILLONS ROMDOS OÙ 
RAMDOS. 

LECTEUR 3.50 + ROMDOS 





.1295 F 
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BANC D'ESSAI 


LOGICIEL UTILITAIRE 





Il n'existe pas de 
nombreux logiciels de 
musique sur CPC et 
pourtant le processeur 
sonore utilisé dans nos 
bécanes est le même 
que celui des Atari STF. 


des microprocesseurs : 8 bits 
pour le CPC et 16/32 bits pour 
le ST. De fait, les programmes ex- 


L a principale différence vient 


ploitant les capacités sonores de 
l'Atari peuvent utiliser plus de mé- 
moire et donc bénéficier de sons 
plus riches. 


Cela n'a pas empêché les éditeurs 
de concevoir des logiciels musicaux 
sur CPC. Le dernier en date est inti- 
tulé Equinoxe et offre de nombreu- 
ses possibilités d'édition musicale. 


La principale caractéristique 
d'Equinoxe est l'utilisation de sé- 
quences, c'est-à-dire de suite de 
notes regroupées sous un numéro. 
Cela peut sembler abstrait, mais en 


ll sb M als 

Lai =} SL EI 2 

NTCONUIF 

lat Elo € EE 

[Ni où alla = + = L 


Lu M Rlil mel ni = 
[M=i-h6 nec | 4 








fait c'est très pratique : imaginez 
vous devant un écran comprenant 
trois grandes colonnes. Ces derniè- 
res correspondent évidemment aus 
trois voies sonores de l'Amstrad. 
Dans chacune de ces colonnes, 
vous pouvez entrer la valeur de la 
note, sous forme anglo-saxonne : C, 
D.,E,F,G,A.B, ceci pour des raisons 
de place à l'écran (SOL est plus im- 
portant que G par exemple). 


Le deuxième paramètre possible est 
l'altération «dièse», il est suivi de l'in- 
dication de l’octave de 1 à 7. Enfin 
le dernier petit tiret correspond au 
son qui sera joué. Les rythmes se- 
ront indiqués par un symbole spé- 
clal remplaçant le numéro de son. 


L'édition sur les trois voles est très 
facile puisque vous pouvez vous 
déplacer avec les touches fléchées 
et accéder ainsi à n'importe la- 
quelle des notes. Il ÿ a même des 
«raccourcis» pour avancer où recu- 
ler par «pas» de 16 notes. 


La séquence est la base du pro- 
gramme. Il suffit d'écrire une seule 
fois le refrain pour n'avoir plus qu'à 
le rappeler par son numéro autant 
de fois que désiré dans la mélodie. 
Pour cela vous allez utiliser le chai- 
nage. 


Imaginez une suite de numéros cor- 
respondants aux 20 séquences pos- 


sibles avec Equinoxe : il s’agit d'un 
chainage et par là même de votre 
mélodie. Dans le menu d'édition, 
vous pouvez définir le début et la 
fin de la mélodie ainsi que le «Goto», 
une instruction qui permet de «bou- 
cler» sur l'air. 


L'édition des enveloppes de volu- 
me et de fréquence permet de 
modifier à volonté et facilement la 
texture d’un son. Pour exploiter en- 
core plus votre processeur, vous 
pouvez également définir des en- 
veloppes de bruit pour imiter, par 
exemple, le bruit des pas d'une 
grenouille sur un contfiturier en metri- 
sler. 


Les 3 enveloppes précédemment 
définies composent un son. La logji- 
que veut que le son numéro 1 soit 
la réunion des enveloppes de 
même unité, mais il est possible de 
mélanger les numéros et éviter 
d'écrire plusieurs fois la même cho- 
se. 


ll reste encore de nombreuses ma- 
nipulations sur les fichiers sonores. 
Ces derniers sont d'ailleurs de 2 ty- 
pes : les fichiers de musique conte- 
nant la partition et les fichiers de 
son contenant les «instruments». 


La boite à outils d'Equinoxe est 
pourvue de tous les instruments né- 
cessaires à la «trituration» de vos 
créations. On retrouve un concept 
rendu familier par le Macintosh 
d'Apple : le «couper-coller». 


Ainsi vous pourrez couper (mettre 
en mémoire) un canal, une sé- 
quence, un rythme et les «coller» 
ailleurs. 


La partie «écoute» autorise l'audi- 
tion de votre merveille par séquen- 
ce où par chainage en fermant 
certains canaux par exemple pour 
repérer une fausse note. Du coté 
des rythmes, vous disposerez de 5 
exemples modifiables et copiables 
à volonté. 


Pour finir, ne manque ni les options 
de sauvegarde, de lecture et de 
catalogue. Pour les tester, Il suffira 
de retourner la disquette, vous y 
trouverez des exemples. Ces der- 
niers sont d'ailleurs utilisables sous 
Basic (interruptions) ou Assembleur . 
La fréquence des interruptions peut 
varier de 1/25 ème à 1/30 ème de 
seconde en passant par le célèbre 
1/50 ème. 


ll existe encore bien d'autres options 
sur Equinoxe, mais l'impression gé- 
nérale est bonne : la présentation 
est claire, les touches occupent 
toujours les mêmes fonctions, bref 
l'ergonomie est bien pensée et il 
n'est même pas nécessaire d'avoir 
des connaissances en solfège pour 
en tirer quelque chose. Espérons 
que ce logiclel donnera le goût aux 
utilisateurs de créer leur propre mu- 
sique plutôt que de «ripper celles 
des autres. 


Edité par UBI SOFT 





| GESTION BANCAIRE 6128 


LA GESTION DE COMPTE BANCAIRE INDISPENSABLE POUR VOTRE CPC 


SELECTION MODIFIER RELEVES 


û . SUPPORT/GORTIE 


- Gère jusqu’à 10 comptes (banque, épargne, caisse...). 

- Codes secrets possibles pour chacun des comptes. 

- Saisie des opérations très simple, avec aide en ligne. 

- Fonction archivage, vous permettant de stocker année par année 
vos opérations, 

- Fonction TRIER, pour obtenir des listes d'opérations par dates 
croissantes. 

- À l'aide de POINTER, vous pouvez effectuer la liaison avec votre 
relevé de banque ‘officiel’. 


- NOMBREUSES POSSIBILITES DE SORTIES : LA em A ne Ce A fe ES nn Sn E 


RAP UN ; BON DE COMMANDE à retourner à 

- répondant à 1 ou plusieurs critères! MICROLOGIC - B.P. 18 - 91211 DRAVEIL CEDEX 

parmi les suivants : -DATES DE DEBUT ET DE FIN ! par téléphone:(1) 69.21.61.65 / par minitel (1) 69.24.49.08 
-MONTANTS MINIMUM ET MAXIMUM ; 


SUPPORT / SORTIR 
No ORDRE/OBJET DEBIT CREDIT SOLDE 


2e Her 


qe 


| Li 1 5 1 is 
mb 1; u 





Mo 1845678901 Occup, 1 x 


-UN LIBELLE PARTICULIER Nom nl en entends 
- Liste de chèques pouvant répondre aux critères suivants:  ! Adresses nn 
DATES DE DEGUTELDE N ho ten 





-NUMEROS DE DEBUT ET DE FIN. 
- Relcvé complet -ENTRE DATES 
-AFFICHAGE SOLDE REEL OÙ SOLDE 
OPERATIONS POINTEES. 


De commande GESTION BANCAIRE 6128 , au prix 
! de 265,00 Frs. (port compris) 

De désire recevoir votre CATALOGUE GRATUIT 
\ présentant votre autres produits pour CPC. 


- Sorties sur ECRAN , IMPRIMANTE ou DISQUETTE. i Je choisis de régler par : Expire 
_ UTILITAIRES IMPRIMANTE, ECRAN, COPIE D'ECRAN... i i [] CHEQUE C: B. Er No EPTCECELEL ET ELEC NEO PP ESCERREEEEPEE TPE F N ECTPEETEETES 
- UTILISE LES 128 Ko DE VOTRE CPC 6128. ! [] MANDAT [] CONTRE SE U 
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CHEOPS 






Qui n'a jamais rêvé de 
voir son prénom écrit en 
hiéroglyphes ? 
C'est maintenant 
possible sur CPC 6128 
(le 464 digérant mal 
les «GOSUB» 

à la queue leu leu). 


pprenez l'écriture de l'Egyp- 
A te antique en tapotant votre 

ordinateur préféré. Chéops 
va vous donner un sérieux coup de 
main. Sans jouer au Sphinx, sachez 
que chaque hiéroglyphe peut avoir 
une double signification : un son ou 
une Idée. Ainsi le dessin du pichet 
de bière traduit une sonorité don- 
née où représente une véritable 
ivresse. Il s’agit alors d’un idéo- 
gramme. Chéops en utilise deux : 
l'homme pour les prénoms mascu- 
lins (frappez !) et la femme dans le 
cas contraire (touche ?). L'idéo- 
gramme doit suivre l'écriture du 
prénom. Vous devez transcrire ce 
dernier en phonétique, en décom- 
posant les différents sons selon la 
technique du rébus. Hélène devient 
ELN, Florent s'écrit FLORN, Françoi- 
se FRNSOIZ, Denise DNIZ, Félix FLX, 
Ernest RNST et Cunégonde QN- 
GOND toujours accompagnés de 
l'idéogramme masculin (1) ou fémi- 
nin (?). La ligne 2230 du program- 
me fournit quelques exemples sup- 
plémentaires. 


Christian GINESTET 


Valable pour CPC 664 - 6128 


Maintenant armé pour vos prerniè- 
res expériences d'égyptologue, il ne 
vous reste plus qu'à découvrir les 
secrets des hiéroglyphes. Sur les 
centaines répertoriés, Chéops en 
utilise 27 correspondants (autant 
que faire se peut) aux différentes 
lettres de l'alphabet accessibles au 
clavier. 


Le vautour 

Le pied 

La corbeille 

La main 
L'avant-bras 
La vipère 

Le porte-jarre 
Le lin torsadé 
Le roseau fleuri 
Le cobra au 
repos 

Les bras levés 
Le lion 

La chouette 
Le cours d'eau 
Le lasso 

Le siège 

La pente sablonneuse 
La bouche 
L'étoffe pliée 
Le pain 

La spirale 

La jeune caille 
Le sceptre 

Le placenta 
Deux obliques 
Le verrou 


TT TONMONS> 


N<KXES<CINDDTOZET x. 


Enfin, un cas particulier : le CH, tra- 
duit par un bassin, est obtenu par la 
touche #. 


Seule limite, la transcription phoné- 
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tique du prénom suivi de l'idéo- 
gramme doit comprendre moins de 
12 signes, nombre maximun de hié- 
roglyphes que le scribe pouvait 
peindre sans retremper son roseau 
dans l'encrier. 


Puis, Chéops, que rien n'arrête, va 
dessiner votre prénom dans un car- 
touche royal, vertical ou horizontal, 
selon son humeur. 


Le chef-d'œuvre accompli, le 
charmeur de serpents se fait enten- 
dre (pour dire vrai la vipère est à 
cornes) il est temps d'appuyer sur 
«S» pour sauvegarder l'écran ou sur 
«» pour l'imprimer. 


Le programme utilise comme Hard 
Copy, «COPY.BIN» publié dans les 
CPC n°5, 11 et 19, 


Avant de vous quitter, il ne me reste 
plus qu'à adresser un grand merci 
à Jean-François Champollion (de 
Figeac), qui lui n'avait pas de CPC | 


BIBLIOGRAPHIE 


Rossini Stéphane Scribes : "J'écris les 
prénoms avec les hiéroglyphes” 
Editions Trimégiste Lavaur Tarn 
Archambault Michel : "La program- 
mation des graphismes” CPC n°29 
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HKOPS 


18 DATA CHR, 1,5,T,I,A,N,#,8,G,I,N,E,S,T,E,T,P,R,E,S,E DHX 


NTE 

28 SYNBOL AFTER 125 

38 CLS:MODE 1:INK 8,1:INK 1,25 

48 ' Ideogranne masculin 

58 SYNBOL 125,9,9,8,9,9,9,8,16 

68 SYMBOL 126,9,11,4,1,1,3,7,15 

78 SYHBOL 127,9,9,9,224, 249, 249,96, 248 

88 SYNBOL 128,244,242,252,24ÿ,224, 224,224, 249 
99 ? Ideogramse feminin 

189 SYHBOL 129,9,8,4,12,28,16,16 

118 SYMBOL 139,17,8,12,6,7,3,3,7 

128 SYHBOL 131,9,8,249, 248,248, 194, 184,248 
138 SYMBOL 132,249,248, 249, 249, 248, 224, 248,248 
148 ? A=vautour 

158 SYMBOL 133,38,52,252, 156,38, 31,15, 15 

169 SYHBOL 134,31,31,21,21,21,21,21,62 

179 SYMBOL 135,9,9,9,8,8,128, 192,224 

189 SYMBOL 136, 248,248, 252,234,252,214,222,8 
198  U=spirale 

288 SYHBOL 137,8,31,32,64,67,66,68,68 

219 SYMBOL 138,66,33,24,12,7,3,1,8 

228 SYHBOL 139,9,224,16,8, 268,299, 8,8 

238 SYMBOL 149,16,224,8,9,9, 128, 192,9 

249 * B:=pied 

258 SYMBOL 141,9,9,8,8,8,1,7,39 

268 SYHBOL 142,9,192, 192,192, 192, 192, 192, 192 
278 SYMBOL 143,192, 192, 192, 192, 192, 192, 192,64 
288 ” C=corbeille 

298 SYMBOL 144,9,9,9,8,8,9,8,255 

388 SYMBOL 145,64,63,31,7,8,8,9,8 

318 SYMBOL 146,8,9,8,8,9,8,8,252 

328 SYHBOL 147,18,248,224,128,9,9,8,9 

338 ? D=main 

348 SYMBOL 148,9,8,8,6,1,8,68,3 

359 SYMBOL 149,127,3,69,7,9,8,9,8 

368 SYHBOL 159,9,8,5,9,8,192, 224,248 

378 SYMBOL 151,249,224,192,9,9,6,8,8 

388 * E=avant-bras 

398 SYMBOL 152,9,9,9,8,24,4,114,15 

499 SYHBOL 153,255,14,114,12,8,8,8,9 

418 SYMBOL 154,8,8,9,8,9,7,7,255 

428 SYHBOL 155,255,1,9,8,8,8,9,8 

438  F=vipere a corne 

449 SYHBOL 156,9,8,8,9,8,8,8,89 

458 SYMBOL 157,34,191,28,8,6,9,8,8 

468 SYHBOL 158,16,41,198,8,9,6,8,9 


NF 
XP 
)LD 
DL 
)XC 
)EA 
>LH 
)LJ 
WW 
YG 
>HB 
)MJ 
ÏRF 
)FC 
)DJ 
)CG 
>KH 
)TA 
)DJ 
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478 ’ G=support de jarre 

489 SYMHBOL 159,9,8,9,9,8,15,4,15 
498 SYMBOL 169,24,31,38, 12,7,3,8,8 
588 SYMBOL 161,9,8,8,8,9,224,64,224 
519 SYMBOL 162,48, 249, 249,96, 192, 128,9,8 
528 ? H=torsade de lin 

538 SYMBOL 163,3,2,2,1,2,2,2,1 
548 SYMEQL 164,2,2,1,4,1,2,2,8 
558 SYMBOL 165,224, 32, 32,64, 169,32, 32,64 
569 SYHBOL 166, 168, 32,64, 128, 64,32, 32,9 
578 ’I=roseau 

589 SYMBOL 167,9,8,9,9,1,1,1,9 

598 SYMBOL 168,112,89, 144,144, 89, 48, 16, 144 
688 SYHBOL 169,112, 48,16,16,16,16,16,16 
619 * J=cobra 

629 SYMBOL 178,9,96,249,17,58,34,34,28 
639 SYMBOL 171,9,9,9,192,32,24,4,4 

648 SYMBOL 172,8,8,4,4,8,8,4,2 

658 ” K=bras leves 

668 SYMBOL 173,9,8,56,56,56, 32, 32, 32 
678 SYMBOL 174,32, 32, 32,32, 32,63,8,8 
688 SYMBOL 175,9,8,28,28,28,4,4,4 

699 SYMBOL 176,4,4,4,4,4,252,8,9 

788 * L=lion 

718 SYMBOL 177,9,9,9,8,9,9,38,111 

729 SYHBOL 178,127,31,31,63,249,8,8,8 
738 SYMBOL 179,9,9,9,8,9,9,2,132 

748 SYMBOL 189,254,255, 255,63, 124,8,5,8 
758 ’ M=chouette 

768 SYMBOL 181,9,15,13,11,15,7,7,7 

778 SYMBOL 182,7,7,7,5,5,5,5,15 

789 SYHBOL 183,9,8,9,9,8,128, 192,192 
798 SYMBOL 184,224, 224, 249, 129, 128, 124,118, 194 
888 * N=cours d'eau 

818 SYMBOL 185,9,9,9,9,9,9,9,17 

628 SYHBOL 186,59,118,68,9,9,9,8,8 

638 SYMBOL 187,9,9,9,8,9,8,8,16 

849 SYHBOL 188, 184,236,68,9,8,9,9,8 

858 ? 0=lasso 

869 SYHBOL 189,9,7,8,8,8,8,22,8 

678 SYMBOL 199,29,289,29,28,9,8,9,8 

888 SYMBOL 191,9, 224,48,16,16,16,16, 16 
898 SYMBOL 192,16,16,16,24,8,8,8,8 

989 ? P=siege 

919 SYMBOL 193,8,9,9,21, 42, 42,42,21 

928 SYHBOL 194,21,42,42,42,21,9,9,8 

938 SYMBOL 195,9,9,9,88, 168, 168, 168,89 
948 SYHBOL 196,88, 168, 168, 168,88,9,9,4 
958 * Q=pente sablonneuse 

969 SYHBOL 197,9,8,9,9,8,8,9,3 

978 SYMBOL 198,3, 7,15,31,63,8,8,9 


LA 





988 SYHBOL 199,9,8,8, 16, 48, 112, 249,248 EC | 1438 SYMBOL 235,8,4,254,9,8,8,9,8 )ZY 
998 SYMBOL 299,248, 245, 249, 249, 248,8,8,8 )FN | 1448 * Charge la Hard Copy d'ecran ( CPC 5, 11, 19 )  DYB 
1888 * R=bouche >XD | 1458 MEMORY &922F:LOAD "'COPY.BIN":CALL &9A8S )NV 
1919 SYMBOL 281,9,8,8,9,9,1,6, 24 >YT | 1468 * Page de presentation: auteur. )YD 
1828 SYNBOL 292,96, 24,6,1,9,8,9,8 >ZR | 1478 RESTORE 18 )DB 
1939 SYMBOL 293,8,9,9,5,9, 126,96, 24 BH | 1488 FOR n=2 TO 28 >LP 
1848 SYXBOL 254,6,24,96, 128,8,9,8,8 >BN | 1499 READ c$ WG 
1858 ’ S:etoffe pliee >XJ | 1588 FOR n=39 TO 4 STEP -1 )RV 
1868 SYHBOL 285,9,3,7,12,12,12, 12,12 BC | 1518 IF c$="x" THEN c$=CHR$ (32) )WB 
1879 SYMEOL 256, 12, 12, 12,12, 12, 12, 12,8 >DW | 1528 LOCATE n,n:PRINT C$;SPC(1):NEXT n GP 
1888 SYHBOL 297,9,8, 128, 192, 192, 192, 192, 192 >JY | 1539 NEXT n NJ 
1999 ?* T=pain >YC | 1549 FOR a=7 TO 14 DLV 
1198 SYHBOL 258,5,9,9,9,8,1,15,63 )ZJ | 1558 READ c$ )WD 
1119 SYMBOL 299,127,255,255,8,9,9,9,9 >CX | 1568 FOR n=39 TO 8 STEP -{ >RF 
1129 SYHBOL 218,9,8,8,5,9, 128,248, 252 )CF | 1579 LOCATE n,n:PRINT C$:SPC(1):NEXT n )GV 
1138 SYMBOL 211,254,255,255,8,9,8,9,8 )CT | 1589 NEXT a JD 
1148 ’ V=jeune caille >X3 | 1598 ” Page de presentation: CHEOPS. )YH 
1159 SYMBOL 212,8,9,6,15,3,3,3,7 )YR | 1699 1=532:s=44:g=28:h=38:c=1 XP 
1168 SYMBOL 213,7,3,3,1,2,4,8,31 >YY | 1618 GOSUB 3669 XF 
1179 SYMBOL 214,8,9,8,9,9, 126, 192, 224 )CV | 1629 s=118:g-4:h=18 JNG 
1188 SYHBOL 215,249, 248, 248, 192,64, 128, 128, 224 DHL | 1638 GOSUB 3669 )XH 
1198  V=sceptre >YD | 1649 s=172:g=28:h=28 >NH 
1298 SYMBOL 216,2,1,2,15,1,1,1,1 >Yc | 1658 GOSUB 3668 )XK 
1219 SYMBOL 217,1,1,1,1,1,1,1,1 )XT | 1668 s=234 XKC 
1228 SYHBOL 216,64, 128, 128, 128, 126, 128, 128, 128 DHU | 1678 GOSUB 3668 )YB 
1239 SYMBOL 225, 128, 126, 128, 126, 128, 128, 128, 128 DNP | 1688 s5-388 )JJ 
1248 ' X=placenta >XK | 1698 GOSUB 3669 >YD 
1258 SYMBOL 219,8,9,8,1,6,8, 23,24 )ZD | 1798 s-364 KB 
1268 SYHBOL 228,24,23,8,6,1,8,9,8 >ZN | 1718 GOSUB 3669 >XG 
1278 SYHBOL 221,9,8,8, 128,96, 16, 232, 24 )DX | 1728 s=58:g=24:h=6:c:8 > 
1288 SYHBOL 222,24, 232, 16,96, 128,9,8,8 )DZ | 1738 GOSUB 3668 XJ 
1298 ? Y=obliques DYE | 1748 1=538:5=62 )BE 
1398 SYHBOL 223,8,6,12,6,3,33,48, 24 )BC | 1758 GOSUB 3668 )YA 
1319 SYMBOL 224,12,6,3,1,9,9,9,8 )YB | 1768 1=532:5:128:g=28:h=18:c=1 )YZ 
1328 SYHBOL 226,5,9,8,9,8, 128, 192,96 >CK | 1778 GOSUB 3669 )YC 
1339 SYMBOL 227, 48, 24, 12,132, 192,96, 32,8 )FP | 1789 1=538:5-126:g-18:h=6:c:8 >XK 
1349 * Z=le verrou >YA | 1798 GOSUB 3668 )YE 
1358 SYMBOL 228,8,9,8,9,9,8,9,6 )XY | 1898 1=53%6:5:176:g-18:h=28 JUG 
1368 SYHBOL 229,121,121,6,8,8,9,9,8 >BH | 1819 GOSUB 3668 )XH 
1378 SYMBOL 238,8,9,8,9,9,8,8,96 )YG | 1829 1=53%6:5-248:g:24:h=8 DUY 
1389 SYHBOL 231,158, 158,96,9,8,8,9,8 )CT | 1838 GOSUB 3668 >XK 
1398 ? CH=le bassin )YF | 1848 5=252 XKC 
1499 SYHBOL 232,8,8,8,8,9, 127,32, 16 )BE | 1858 GOSUB 3668 )YB 
1419 SYMBOL 233,16, 32, 127,8,9,9,8,8 )BG | 1868 s=388:g=18:h=28 )ND 
1428 SYHBOL 234,8,9,8,8,9,254,4,B )ZN | 1878 GOSUB 3668 )YD 
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1888 s=318:h=4:c=1 HZ 
1899 GOSUB 3668 YF 
1999 5=368:g-28:h=28:c=# )TY 
1919 GOSUB 3664 )XJ 
1928 ‘ Page de presentation: cartouche du pharaon. )YE 
1938 z=4 >XK 
1949 GOSUB 3858 DC 
1959 PRINT CHR$ (24); NF 
1968 p$="xufv" LH 
1978 y=yth )RD 
1988 y=(y/16)+9.5 )LV 
1998 GOSUB 2688 )YH 
2898 ‘ Musique DXE 
2819 GOSUB 4369 y 
2828 ‘ Attend la frappe d'une touche. )XG 
2839 VHILE INKEY$="":VEND DUA 
2848 PRINT CHR$(24); )NN 
2859 ’ Ideogramnes. >XK 


2868 1$=CHR$(125)+CHR$ (127) +CHR$ (19) +CHR$(B)+CHR$(8)+CH HR 
R$(126)+CHR$(128)+CHR$(11) 
2878 O$=CHR$(129)+CHR$ (131) +CHR$ (18) +CHR$ (8) +CHR$(B)+CH DHJ 
R$(138)+CHR$(132)+CHR$(11) 


2888 CLS >2ZK 
2898 ? Frise. )YD 
2189 v=3:u=37:t=8 HN 





2119 GOSUB 2548 )UH 
2128 v=5:t=18 XXE 
2139 GOSUB 2548 UK 
2149 v=35:u=37:t=18 >NB 
2159 GOSUB 2548 )XB 
2168 v=3:w=5:t=12 JNJ 
2179 GOSUB 2549 )XD 
2188 v=35:u=37 >UG 
2199 GOSUB 2549 XF 
2288 v=3:wu=37:t=14 >HH 
2219 GOSUB 2548 DE 
2228 ‘ Exesples de prenoms phonetiques. )XJ 


2238 DATA o,d,?,8,a,r,l,e,!,c,l,s,t,e,?,b,a,b,a,r,!,c,r DHR 
1St,1,1,e,7,a,1,b,r,t,!,e,g,n,i,2,l,0,r,n,!,j,0,2,e, 
t,7,d,n,i,s,!,d,1,f,i,n,e,?,r,m,o,n,d,!,4,l,a,?,u,r,n,r 
,1,8,0,4,8,d,!,8,a,d,1,n,?,y,v,!,p,n,l,0,p,?,d,i,d,i,e, 
!,a,l,i,5s,? 


2248 * Henu. DYA 
2259 x=1:y=1:g=8:h=8 >PR 
2268 VINDOW#1, 18,33, 19,13 )TE 


2278 CLS#1:PRINT#I,CHR$(2);: LINE INPUT#I, "Prenom ( en >HV 
phonetique }) 
",pt 
2288 PRINT#1," I=iapression S=sauvegarde )ZA 
Autre touche pour continuer ":WHILE 








INKEY$="": VEND 

2298 p$=LOWERS (p$) 

2388 p=VAL(p$) 

2318 IF POS THEN 2358 

2328 z=LEN(p$) 

2338 ‘ Signes compris entre # et 12. 


2349 1F z<1 OR z>11 THEN 2358 ELSE 2368 


2358 PRINT CHR$(7);:GOTO 2288 
2368 GOSUB 4278 


2378 1F z AND 1 OR z7 THEN GOSUB 3118 ELSE GOSUB 3719 


2388 ’Nosbre de signes ispair: ecriture horizontale. 


2398 1=(x/16)+8.5:Y=Y+H 
2489 y=(y/16)+9.5 
2419 PRINT CHR$(24); 


2428 IF z AND 1 OR z>7 THEN GOSUB 2688 ELSE GOSUB 2688 


2438 ’ Husique. 
2448 GOSUB 4368 


2458 * Appel de la routine d'ispression. 
2468 1$=INKEYS:1F UPPERS(I$)="1" THEN 4328 ELSE GOSUB 2 


488 

2479 ‘ Sauvegarde de l'ecran. 

2488 IF UPPER$S(I$)="S" THEN GOSUB 2519 
2499 VHILE INKEY$="" : VEND 


2589 PRINT CHR$(24) ; :RUN 2868 
25189 SAVE" !CHEOPS", b, &CH8S, k4889 
2528 RETURN 

2539 ' Frise 

2548 FOR i=v TO w STEP 4 

2558 LOCATE i,t 

2568 PRINT 1$+0$; 

2578 NEXT ji 

2588 RETURN 

2598 ‘ Ecriture verticale du prenon. 
2689 FOR i=1 TO z 

2618 spt=HID$(p$,i,1) 

2628 LOCATE x, 11 

2638 GOSUB 2769 

2648 x=x+3 

2658 NEXT j 

2668 RETURN 

2678 ’ Ecriture horizontale du prenos. 
2688 FOR i=z TO 1 STEP -1 

2698 sp$=HID$(p#,i,1) 

2789 LOCATE 28,y 

2718 GOSUB 2769 

2729 y=y-3 

2738 NEXT ji 

2749 RETURN 


MF 
UC 
>PF 
VA 
YA 
)CI 
XX 
>XG 
JUH 


YF 
)RB 
)LG 
>NX 
JUR 


)YB 
XF 
)YD 
)AP 


YF 
)EP 
JVC 


Fe 
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2758 ‘ Saut de ligne et retour du curseur . >YG | 3828 IF spt="t" THEN PRINT CHR$(298)+CHR$(219)+m$+CHR$( DVL 
2769 n$=CHR$(18)+CHR$(8)+CHR$ (8) >ZP | 289)+CHR$(211)tn$ 
2778 Le curseur remonte d’une ligne. >YJ | 3838 IF sp$="v" THEN PRINT CHR$(212)+CHR$(214)+a$+CHR$( DVH 
2789 n$=CHR$(11) >DB | 213)+CHR$(215)4n$ 
2798 ‘ Dessin des hieroglyphes. )ZA | 3848 IF spt="u" THEN PRINT CHR$(216)+CHR$(218)+m$+CHR$( > VD 
2888 IF sp$="!" THEN PRINT CHRS(125)+CHR$(127)+m$+CHR$( DUW | 217)+CHR$ (225) +n$ 
126)+CHR$(128)+n$ | 3858 1F sp$="x" THEN PRINT CHR$(219)+CHR$(221)+m$+CHR#( DVT 
2819 IF spt="?" THEN PRINT CHR$(129)+CHR$(131)+m$+CHR$( DUT | 229)+CHR$(222)+n$ 
139)+CHR$ (132) +n$ 3868 1F sp$="y" THEN PRINT CHR$(223)+CHR$ (226) +n$+CHR$( VE 
2828 IF spt="a® THEN PRINT CHR$(133)+CHR$(135)+n$+CHR$( DVE | 224)+CHR$(227)+n$ 
134)+CHR$ (136) 1n$ 3878 1F sp$="z" THEN PRINT CHR$(228)+CHR$ (238) +m$+CHR$( >VG 
2838 1F sp$="u" THEN PRINT CHR$(137)+CHR$(139)+m$+CHR$( DVK | 229)+CHR$(231)+n$ 
138)+CHR$ (148) +n$ 3888 1F sp$="#" THEN PRINT CHR$(232)+CHR$(234)+m$+CHR$ UV 
2848 1F sp#="b" THEN PRINT CHR$(32)+CHR$(142)+m$+CHR$(1 DUC | 233)+CHR$(235)4n$ 
41)+CHR$ (143) +n$ 3898 RETURN FF 
2858 1F sp$="c" THEN PRINT CHR$(144)4CHR$(146)+m$+CHR$( DVU | 3188 ” Lignes verticales de fond de page. »XG 
145)+CHR$(147)+n$ 3118 CLS:g=1:h=49f:x=1:c=1 VR 
2869 1F spt="d" THEN PRINT CHR$(148)+CHR$(159)+m$+CHR$( DVU | 3129 FOR 5:24 TO 688 STEP 48 UD 
149)+CHR$(151) +n$ 3138 GOSUB 4219 WG 
2879 IF spt="e" THEN PRINT CHR$(152)+CHR$(154)+a$+CHR$( DVU | 3149 NEXT 5 )WD 
153)+CHR$(155)+n$ 3158 Fond de page: ecriture verticale. )YB 
2888 IF spt="f" THEN PRINT CHR$(156)+CHR$(32)+m$+CHR$(1 DUF | 3168 RESTORE 2239 )LR 
57)+CHR$(158)+n$ 3178 FOR u=3 TO 48 STEP 6 RD 
2698 1F spt="g" THEN PRINT CHR$(159)+CHR6(161)+a$+CHR$( DVZ | 3189 FOR w=1 TO 22 STEP 3 )RB 
168)+CHR$ (162) tn$ 3198 READ sp DHE 
2988 1F sp#="h" THEN PRINT CHR$(163)+CHR$(165)+a$+CHR$( 3VZ | 3288 LOCATE u,w >DG 
164)+CHR$ (166) +n$ 3219 GOSUB 2769 »XD 
2918 IF sp#="i" THEN PRINT CHR$(167)+CHR$(168)+a$+CHR$( DUJ | 3228 NEXT w WG 
32)+CHR$ (169) +n$ 3238 NEXT u WF 
2928 IF spt="j" THEN PRINT CHR$(178)+CHR$(171)+m$+CHR$C DUR | 3248 * Cartouche horizontal. )YB 
32)+CHR$(172)+n$ 3258 1=1:5=166:h=112:g=648:c=8 )YP 
2938 IF spt="k" THEN PRINT CHR$(173)+CHR$(175)+@$+CHR$( DVK | 3269 GOSUB 3669 )XJ 
174)+CHR$(176)+n$ 3278 1x=328 )WB 
2948 IF spt="]" THEN PRINT CHR$(177)+CHR$(179)+m$+CHR$( DVU | 3288 r=39 )DG 
178)+CHR$ (188) +n$ | 3298 x1=((z/2)#48)+8 NH 
2958 1F sp$="a" THEN PRINT CHR$(181)+CHR$(183)+m$+CHR$( DVK | 3388 x=xxtxi+6 YA 
182)+CHR$ (184) 1n$ 3318 s=18B:h-82:g=4:c=1 )RV 
2968 IF spt="n" THEN PRINT CHR$(185)+CHR$(187)+a$+CHR$( DVE | 3328 GOSUB 3668 XF 
186)+CHR$ (188) +n$ 3338 1=xx+x1-32 EH 
2978 IF sp$="o" THEN PRINT CHR$(189)+CHR$(191)+m$+CHR$( DVU | 3348 y=228 KA 
198) +CHR$ (192) +n$ 3358 p=8:q-98 )KD 
2988 1F sp#="p" THEN PRINT CHR$(193)+CHR$(195)+m$+CHR$( DVE | 3368 r=39:c=1 )JG 
194)+CHR$ (196) +n$ 3378 GOSUB 3599 )YC 
2998 IF sp$="q" THEN PRINT CHR$(197)+CHR$(199)+m$+CHR$( DVE | 3388 r=35:C=8 )D 
198)+CHR$ (288) +n$ 3398 GOSUB 3599 )YE 
3888 1F sp$="r" THEN PRINT CHR$(291)+CHR$(283)+n$+CHR$( DVW | 3489 r=38:c=1 )HC 
282)+CHR$ (284) +n$ 3419 GOSUB 3599 )XH 
3818 1F sp$="s" THEN PRINT CHR$(295)+CHR$(297)+a$+CHR$( DUN | 3428 x=xx-x1:p=189:q=278 >UJ 
286)+CHR$(32) +n$ 3438 r=39:c=1 NE 


3449 GOSUB 3598 

3458 r=35:c=f 

3469 GOSUB 3598 

347 r=39:c=1 

3489 GOSUB 3598 

3499 g=(x142)-32:h=88:S=175:C=8 
3589 GOSUB 3669 

3519 h=B2:S=18#:c=1 

3529 GOSUB 3669 

3538 h=74:5=185:c=8 

3549 GOSUB 3669 

3558 h=64:5=198:c=1 

3569 GOSUB 3669 

3579 RETURN 

3588  Deni-cercle 

3598 DEG 

3689 FOR a=p TO q STEP 2 
3618 PLOT rxC0S(a)+x,r4SIN(a)ty,c 
3629 DRAUR 8,-2#r#SIN(a) 
3639 NEXT 

3649 RETURN 

3658 ? Rectangle 

3668 PLOT x,5 

3678 FOR n:1 TO h STEP 2 
3689 DRAUR g,9,c:HOVER -g,2 
3698 NEXT 

3788 RETURN 


3718 ' Lignes horizontales en fond de page. 


3728 CLS:g=648:h=2:y=1:c=1 
3739 FOR 5:24 TO 399 STEP 96 
3748 GOSUB 3669 

3758 NEXT 5 


3768 " Decor de fond: ecriture horizontale. 


3779 RESTORE 2238 

3788 FOR w=1 TO 22 STEP 3 
3798 FOR u=2 TO 39 STEP 3 
3888 READ spf 

3819 LOCATE u,w 

3829 GOSUB 2769 

3839 NEXT u 

3849 NEXT vw 

3858 ? Cartouche vertical 
3868 s=258:h=498:g-149:y=1:c=8 
3878 GOSUB 4219 

3889 yy=299 

3898 y1=((z/2)448)+8 

3989 r=39 

3919 y=yy-yi-r-4 

3928 5=288:h=4:g=79:c=1 

3938 GOSUB 4218 

3948 x=329:y=yyty1-32:r=39:c=1:p=8:q=98 
3958 GOSUB 4149 

3969 r=35:c=$ 

3978 GOSUB 4149 

3988 r=38:c=1 

3998 GOSUB 4149 

4999 y=yy-y1:r=39:p=188:q=278 
4919 GOSUB 4149 

4929 r=35:c=ÿ 


* 


XF 
)NR 


NZ 
>XK 


)YB 
)FJ 


)FG | 


)YG 
)QY 


)LK 
)FD 


)VH 
UF 


>NQ 
)DF 


)JH 
YA 
JF 
)YC 





4938 GOSUB 4149 DNJ 
4949 r=38:c:1 )HD 
4958 GOSUB 4149 )XA 
4969 h=(y142)-32:g=79:5=288:c=1 )YH 
4978 GOSUB 4219 »XA 
4888 g=74:3=285:c=$f NU 
4998 GOSUB 4218 )XC 
4188 g=61:5=298:c=1 )NK 
4118 GOSUB 4219 NF 
4129 RETURN )FA 
4139 * Deni-cercle. )YA 
4148 DEG )YA 
4158 FOR a=p TO q STEP 2 )QN 
4169 PLOT r#SIN(a)+x,r#C0S(a)+y,c )BX 
4178 DRAUR -2#r4SIN(a),8 >TF 
| 4189 NEXT )LE 
4198 RETURN FH 
4289 'Rectangle. )XJ 
4218 PLOT 5,7 >NA 
| 4228 FOR n=1 TO h STEP 2 )QP 
4238 DRAUR g,8,c:MHOVER -g,2 >VP 
4249 NEXT )LB 
4258 RETURN FE 
4268 ? Gong. )YE 
4278 FOR i=15 TO 1 STEP -1 >RH 
4288 SOUND 1,758,28+(i/2),i UC 
4298 NEXT ji WA 
4388 RETURN )FA 
4318 * RSX d'ispression. )YA 
4328 üPRINTER, 7,27,49,27,42,4,127,2,1,19,7,9,1 NF 


4338 àCOLOR, 8,8,9,8,9,9,8,8,9:dC0PY,9,638, 488,8,1,1:PRI DTF 
NT#8,CHR$ (12); 

4348 PRINT CHR$(24) ; :RUN 2869 dWE 
4359 * Les charseurs de serpents de Ketelbey. )YE 
4368 DATA 127,38,119,8, 127,39, 119,8, 127,6, 123,8,127,6,1 DQH 


| 59,8,169,8,179,8 


4378 DATA 159,6, 142,8, 127,8, 123,8,127,8, 142, B, 169,8, 179 DNH 
,8, 159,6, 142,8 
4388 DATA 179,68,358, 8,336, 8, 391,6, 253, 39, 245,8,253,39, >BA 


| 239,8 
| 4308 DATA 253,8, 245,8, 253,8,381,8,338,8, 358,8, 319,8, 381 )NJ 


, 8, 253,8, 498,8 


| 4495 DATA 253,8,245,6,253,6,9381,8, 336, 8,356, 8,319, 8, 391 )PR 


, 8, 356, 69,253, 4 

4419 DATA 498,4,451,4,379, 4,358, 4,358, 69, 358,4, 379,4, 45 DQU 
1,4,499,4,586,68 

4429 DATA 253,4, 498, 4,451, 4,379, 4,358, 4,358,69, 358,4,37 DPC 
9,4,451,4,478,4 

4438 DATA 253,68,253, 4,499, 4,451,4, 379,4, 358,38, 338, 8,3 DRN 
58,38, 338, 8, 358,8 


| 4448 DATA 338,6, 358, 8,319,8, 358, 8,319, 8, 358, 8,319, 8,358 )PG 


, 69, 253,8, 253,8 
4458 DATA 253,15,253, 15,358, 15,379, 15,451, 15,478, 39,596 ZA 
,68 


4468 RESTORE 4369 )LC 
4478 FOR au=1 TO 95:READ p,d )VH 
| 4488 SOUND 1,p,d,15-(au/58) JVH 
4499 NEXT )LJ 
4588 RETURN )FC 
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Ce programme ne vous garantit pas un gain à chaque jeu, maïs il 
deviendra de plus en plus efficace au cours de la saison et 
facilitera vos pronostics. 

Le mode d'emploi est inclus. 


LOTO = BAS 


18 ‘ creation du fichier loto )LA 
38 ? >LC 
31 HODE 1:CLS:BORDER 9 )RJ 


32 LOCATE 8,12:PRINT" VOULEZ-VOUS LE MODE D'EMPLOI" :LOCA >XF 
TE {7,14:PRINT"Qui ou Non":KEY DEF 66,8,8,9#,9:POKE &BDE 
E,&C9 


33 aat=INKEYS > 
34 IF aat=°0" OR aa$="0" THEN GOTO 48 >BH 
35 IF aat="n" OR aat="N" THEN GOTO 3898 )DB 
36 GOTO 33 )LE 
48 CLS:LOCATE 18,13:PRINT" IMPRIMANTE OU ECRAN 1 / E*  )ZN 
58 RS="":VHILE r$="":r$=UPPERS (INKEY$) : VEND Hu 
68 IF r$="]" THEN ca=8:PRINT" * ELSE 98 )EZ 
78 PRINTHS,CHR$(27);"!";CHR$ (29) >ZN 
88 GOTO 118 )RJ 
98 IF r$="E" THEN ca=#:G0T0 118 >XH 
188 GOTO 58 >RC 
118 MODE 2:CLS UF 
115 PRINTIca," " JHB 
128 PRINT#ca, TAB(35) ; "NODE D'EMPLOI." >GP 
138 PRINTAca, TAB(35) "HERMANN )CB 


148 PRINTÉca,*" * LR 





158 PRINTEca, TAB(13) ;"LORSQUE LE PROGRAMME EST EN MEMOI DRH 
RE, LAISSER LA DISQUETTE" 

168 PRINTEca, TAB(18) ; "DANS LE DRIVE." )6F 
178 PRINTICA,* * >HC 
188 PRINTAca, TAB(13) ; "TOUT D'ABORD L'ORDINATEUR DEMANDE LF 
LE NUMERO DU LOTO ET" 

198 PRINTÉCA, TAB(18);"ENSUITE LA DATA À LAQUELLE IL SE ODTT 
JOUERA, ENSUITE VOUS ALLEZ" 

289 PRINTAca, TAB(18);"AU MENU PRINCIPAL 7 CHOIX SONT AL >ZU 
ORS POSSIBLE. * 

218 PRINTÉca," " >GH 
228 PRINT#ca,TAB(27);*- # - ENTREE MODE MANUEL. * )TC 
238 PRINTICA, TAB(27);"- 1 - PRONOSTICS SUR 13 MATCHS EN )GT 
x." 

249 PRINTÉca, TAB(27);"- 2 - GRILLE DU LOTO SPORTIF."  >ZH 
258 PRINTECa, TAB(27);"- 3 - SAUVEGARDE DES PRONOSTICS." )DY 


268 PRINTICA, TAB(27);"- 4 - LECTURE DES PRONOSTICS."  DZE 
278 PRINTSca, TAB(27);*- 5 - GRILLE POUR CHACUNE DES MIS >HD 
ES." 


288 PRINTHca, TAB(27);"- 6 - FIN DU PROGRAMME. * Y0E 
298 PRINTca,* * HF 
389 PRINTHCa, TAB(27);"- # - ENTRE MODE MANUEL." >RH 
318 PRINTÉCA, TAB(27) 5 "RNA NT 
328 PRINTÉca," * >GK 
338 GOSUB 2588 >NK 





348 PRINTICA, TAB(13); "RENTRER LES RENSEIGNEMENTS COMME DTT 
SUIT: EXEMPLE CI-DESSOUS" 


358 PRINTca,* " JHC 
368 PRINT#ca, TAB(34) ;"HATCH No 1° )CM 
378 PRINTRca," " DHE | 
388 PRINTHca, TAB(26); "EQUIPE LOCALE : ST ETIENNE" WE 
398 PRINTAcA, TAB(26);"SON CLASSEMENT: 19" >LN 
488 PRINTEca, TAB(24) ; "EQUIPE VISITEUSE: MARSEILLE" »ZG 
419 PRINTHca, TAB(26); "SON CLASSEMENT: 1" XT 
428 PRINT#ca," HA 
438 PRINTEcA, TAB(28) ; "RESULTAT DU MATCH L'AN DERNIER ( DNY 


O/N ) ?* 

449 PRINTAcA, TAB(13) ; "REPONDRE ‘N° ( NON ) AU 13 MATCHS DNP 
ET SAUVEGARDER SUR CAS-" 

459 PRINTAca, TAB(18) ;"SETTE EN NOMMANT CE FICHIER : LOT )JP 
0-5" 

469 PRINTÉca, TAB(18);"CECI EST IMPERATIF POUR CREER VOT DIT 
RE PREMIER FICHIER. * 

478 PRINTRCA, TAB(18) ;"-----------" )VA 

488 PRINTÉCA,* HG 
498 PRINTÉCA, TAB(18); "SUR DISQUETTE : IDEM AVEC CHOIX D >FU 

U DRIVE ' AouB'." 

588 PRINTÉCA," " >GK 

518 PRINTÉca, TAB(13); "REVENIR ENSUITE AU MENU ET APPUYE KP 

R SUR LA TOUCHE - 8 -" 

529 PRINTHCA, TAB(18) ; "ENTREE HODE MANUEL. * >HP 

538 PRINT#cCa," " HC 

549 PRINTECA, TAB(13); "VOUS AVEZ LES RESULTATS DES MEME )KM 
MATCHS DE L’AN PASSE" 

559 PRINTAca, TAB(18) ;"ALORS PROCEDER COMME SUIT: EXEMPL )ZD 
E CI-DESSOUS. * 


568 PRINTHCA," " HF 
578 GOSUB 2899 )PF 
588 PRINTAca, TAB(36) ; "MATCH No 1" )CU 
598 PRINT#ca, TAB(26); "EQUIPE LOCALE : ST ETIENNE" MH 
688 PRINTRcA, TAB(26);"SON CLASSEMENT: 19" )LG 
618 PRINTAca, TAB(24) ; "EQUIPE VISITEUSE: MARSEILLE" TK | 
629 PRINTEcA, TAB(26);"SON CLASSEMENT: 1" KW 
638 PRINTECa, TAB(19); "RESULTAT DE L’AN PASSE: EXEMPLE ’ DTH | 
ST ETIENNE # MARSEILLE 8°," 

648 PRINT#ca, TAB(18); "RESULTAT DU MATCH L'AN DERNIER ( DNJ 
O/N ) ?" 

659 PRINTECA, TAB(18) ; "REPONDRE ‘0’ PUIS 'ENTER'" DVE 
668 PRINTEca, TAB(18);*L'EQUIPE LOCALE AVAIT ? G.N.P. DEV 


LA] 

678 PRINTHca, TAB(18) ; "REPONDRE ‘N’ PUIS 'ENTER' ( G=GAN DEK 
E N=NUL P=PERDU )." ; 

689 PRINTEca, TAB(18);"CECI POUR LES 13 MATCHS, ENSUITE )YZ 
SAUVEGARDER CE FICHIER EN LUI" 

699 PRINT#ca, TAB(L8) ;"CHOISISSANT UN NOM (8 LETTRES MAX >ZM 
1), POUR LES NONS DES EQUIPES" 

788 PRINTca, TAB(18) ; "MAXIMUM DE LETTRES:11... ( 2eme S DVY 
AUVEGARDE EXEMPLE: BIDON ).* 

718 PRINTRCA, TAB(LO) ; "RARE EENEUMNUENNEUEEUEX )DP 
LELECECESCETET TEE TTTETS TTL) 

728 PRINTÉca, TAB(25);"- 1 - PRONOSTICS SUR 13 MATCHS EN >GV 
s." 


730 PRINTHCa," " HE 





748 PRINTAca, TAB(13);"L'APPUI SUR CETTE TOUCHE DONNE LA DRZ 
TENDANCE EN POURCENTAGE" 

758 PRINT#ca, TAB(19);"DES 13 MATCHS SUR LA GRILLE DU LO >NH 
TO SPORTIF EN ' 4.N.2. '." 

768 PRINTICa," * HA 
7178 PRINTCA, TAB(18); "UN SECOND MENU PROPOSE ENSUITE LE >XP 
CHOIX SUIVANT : CI-DESSOUS" 


789 PRINTÉCA," " >HK 
798 PRINT#ca, TAB(25);*- 1 - SORTIE SUR IMPRIMANTE. * NT 
888 PRINTECA, TAB(25);"- 2 - RETOUR AU MENU." NN 
895 GOSUB 2899 >PG 
818 PRINTÉCA," " HD 


828 PRINTHCa, TAB(18); "TOUTES LES SORTIES SUR IMPRIMANTE 
FONT UNE COPIE D'ECRAN..." 


LR 


838 PRINTÉCA, TAB(19) 5 MINE EEE ONE DT 
ÉXENEEFESFENSTEETESTESIIT 

848 PRINT#ca,TAB(25);*- 2 - GRILLE DU LOTO SPORTIF." >ZM 
859 PRINTHca," >HH 


868 PRINT#ca,TAB(13);"IL EST CONSEILLE DE PROCEDER COMN 
E SUIT: VOIR CI-DESSOUS." 

878 PRINTSca, TAB(18); "AVERTISSEMENT PRECEDENT : SAUVEGA 
RDE DU FICHIER ’LOTO-S' ET" 

888 PRINTACA, TAB(18);"DU DEUXIEME FICHIER AU NOM PREALA 
BLEMENT CHOISI :" 


)RZ 


VR 


DR 


899 PRINTÉca," " >LB 
998 PRINT#ca, TAB(18); "EXEMPLE FICHIER : ’BIDON’" )UQ 
918 PRINTRCA," HE 


928 PRINTCa, TAB(18);"CHARGER ’BIDON’ EN DISQUETTE OÙ C 
ASSETTE ET APPUYER ENSUITE" 


WX 


938 PRINTÉCA, TAB(19); "SUR LA TOUCHE - 2 - LA GRILLE DU PC 
LOTO SPORTIF APPARAIT ET" 
948 PRINTÉca, TAB(19); "DANS LE MENU ON PEUT LIRE : VOIR VF 
CI-DESSOUS. * 
958 PRINTHca," " )HJ 
968 PRINT#ca, TAB(35) ; "VOULEZ-VOUS" )EC 
965 PRINTHCA, TAB(35);"#RnxNaxun En" > AG 
978 PRINTECa," * )LA 
988 PRINTRca, TAB(25);"- 4 - MATCH DU JOUR." MX 
998 PRINT#Ca, TAB(25);"- 2 - POSSIBILITE DE DOUBLE." »XQ 
1888 PRINT{ca,TAB(25);"- 3 - RETOUR AU MENU." )PY 
| 1919 PRINTéca, TAB(25);"- 4 - SORTIE SUR IMPRIMANTE."  )ZE 
1828 PRINT{ca," * DLF 
1938 GOSUB 2988 VJ 


1845 PRINTica,TAB(19);"IL EST POSSIBLE D'APPUYER SUR LA DUT 
TOUCHE No 2 ET LE FICHIER" 

1858 PRINTIca,TAB(19);"'LOTO-S’ VA SE CHARGER EN MEMOIR DRK 
E ET AFFICHER A L'ECRAN LA" 

1868 PRINTAca, TAB(19) ; "NOUVELLE GRILLE DU LOTO SPORTIF TZ 
MAIS, CETTE FOIS-CI, AVEC" 

1875 PRINTAca,TAB(19);"DES DOUBLES. " )FP 
1888 PRINTÉCA, TAB(13); "ELLE NE PEUT EXEDER 7 DOUBLES, E DRZ 

NSUITE VOUS RETOURNEZ AU" 

1995 PRINTHca, TAB(18); "MENU CI-DESSOUS. * KY 
1188 PRINTIca,* * )LE 
1119 PRINTÉca, TAB(18);"- 1 - MATCH DU JOUR: EXEMPLE ( S NP 

T ETIENNE --- MARSEILLE )" 

1128 PRINTÉca, TAB(13);"LE PREMIER MATCH DU JOUR SE TROU >RG 

YE À LA Gene PLACE SUR LA" 

1138 PRINTEca, TAB(18) ; "GRILLE DU LOTO SPORTIF : IL VOUS TT 


38 





FAUT DONC APPUYER SUR LA" 

1149 PRINT#ca, TAB(18) ; "TOUCHE 6 POUR VOIR APPARAITRE : 
1 - ST ETIENNE -- MARSEILLE" 

1159 PRINT#ca, TAB(18) ; "L'ORDINATEUR CALCULE LE SCORE QU VF 
L S'AFFICHERA ENSUITE, CECI" 

1169 PRINTEca, TAB(18) ; "POUR LES 3 MATCHS DU JOUR." )XH 
1178 PRINTica,* * >LH 
1189 PRINT#ca, TAB(13) ; "ENSUITE APPARAIT UN MESSAGE : DE >UW 
SIREZ-VOUS UNE SORTIE SUR" 

1199 PRINT#ca, TAB(19);"IMPRIMANTE ( O/N ) ?" NE 
1258 PRINT{ca," * )LF 
1218 PRINT#ca, TAB(18) ; "REPONDRE OUI EN APPUYANT SUR LA )TE 
TOUCHE ’0’ LE CAS ECHEANT." 

1228 PRINT#ca, TAB(18) ; "REPONDRE NON EN APPUYANT SUR LA )TQ 
TOUCHE ?N' POUR RETOURNER" 

1238 PRINT#ca, TAB(19);"AU MENU PRINCIPAL." MY 
1248 PRINT{ca," * >LK 
1258 PRINT#ca, TAB(18);"- 4 - SORTIE SUR IMPRIMANTE. ( C DXL 
OPI D'ECRAN )." 


UP 


1268 PRINTAca, TAB(19) ;"FONCTIONNE SUR TOUT LES MENUS." DU 
1279 GOSUB 2988 WE 
1288 PRINTIca," )LP 


1298 PRINTca, TAB(18);"- 3 - RETOUR AU MENU." )PD 
1388 PRINTAca, TAB(18); "VOUS RETOURNEZ AU MENU PRINCIPAL DHH 
" 

1319 PRINTIca, TAB(18) 5 MAR INNNNNENNNNNNNNNNNNNUNENEE )FL 

ÉTIEIPET TETE TETE ZETETEZET D) 

1328 PRINTica,TAB(27);"- 3 - SAUVEGARDE DES PRONOSTICS. DEA 
: 
1338 PRINT#ca," " >LK 
1349 PRINTéca, TAB(19) ; "SAUVEGARDE SUR CASSETTE OU DISQU >NZ 

ETTE,. * 

1358 PRINTAca, TAB(19) ; "SAUVEGARDER LA CASSETTE ( FICHIE DUY 
R SANS RESULTATS ) SOUS LE" 

1368 PRINT£ca,TAB(18) ; "NOM DE ’LOTO-S' : NOM DU FICHIER DXE 
OBLIGATOIRE. * 

1378 PRINTAca,TAB(19) ;"QUAND AU 2eme FICHIER, LE SAUVEG DYH 
ARDER SOUS LE NOM CHOISI PAR" 

1388 PRINTca,TAB(19);"VOUS MEME, MAIS ATTENTION 8 LETT ZE 
RES MAXIMUM : EXEMPLE ?BIDON'" 

1398 PRINTica," )LR 
1488 PRINTéca, TAB(13); "SUR DISQUETTE : PROCEDER DE LA N DUV 
EKE FACON QUE SUR CASSETTE" 

1419 PRINTAca, TAB(18);"MAIS POUR SE FAIRE, SELECTIONNER )JC 
LE DRIVE ( À ou B )." 

1428 PRINT#ca,TAB(13); "L'ORDINATEUR POSE LA QUESTION LO DVK 
RSQU'ON EFFECTUE LA SAUVE-" 

1438 PRINTAca,TAB(18);"GARDE SUR DISQUETTE UNIQUEMENT E DTT 
T APRES LA SAUVEGARDE, LE" 

1448 PRINT#ca,TAB(19); "FICHIER 'BAK’ DU CATALOGUE EST À DHC 
UTOMATIQUENENT EFFACE, " 

1458 PRINTIca," >LN 
1469 PRINTca, TAB(13) ; "RECOMMANDATION : IL EST PREFERAB )TL 
LE DE TOUJOURS PRENDRE LE" 

1478 PRINTéca, TAB(19);"MEME NOM POUR VOTRE 2eme SAUVEGA DWY 
RDE : EXEMPLE 'LOTO-A’ LOTO" 

1488 PRINTÉCa, TAB(19); "AVEC RESULTATS, CES 2 FICHIERS S >TB 
ONT DEJA SUR LA DISQUETTE" 

1498 PRINTca, TAB(19); "FICHIER SANS RESULTATS SAUVEGARD >XU 





E : ’LOTO-S'" 

1598 PRINTHca, TAB(19); "FICHIER AVEC RESULTATS SAUVEGARD DXR 
E : "LOTO-A’* 

1518 PRINTIca," * )LK 
1529 GOSUB 2599 NC 
1538 PRINTica,TAB(13);"EN CAS D'ERREUR DE TOUCHE : EXEM DUB 
PLE-» VOUS VENEZ D’APPUYER" 

1548 PRINT£ca,TAB(19);"SUR LA TOUCHE - 3 - SAUVEGARDE E DWC 
T VOUS VOULLIEZ LA GRILLE DU" 

1558 PRINT#ca, TAB(18);"LOTO SPORTIF DONC TOUCHE No 2 ET )ZL 
BIEN SI VOUS ETES EN LECTURE" 

1568 PRINTtca,TAB(19);"OU EN HODE SAUVEGARDE IL VOUS SU DYY 
FFIT POUR CELA D'APPUYER SUR" 

1578 PRINT#ca,TAB(19);*LA TOUCHE ’:’ SANS NOM ET "ENTER >W 
" ET VOUS RETOURNEZ AU MENU" 

1589 PRINT#ca, TAB(19) ; "PRINCIPAL. * )DY 
1599 PRINTHca, TAB(18) 3 MEN IEHNNNNNNNNNNNNNNEHNNR LM 
LLEELELEFEECETENCEETETEETESEETEE 

1689 PRINTECA, TAB(26);"- 4 - LECTURE DES PRONOSTICS.* 
1619 PRINTica," " 

1628 PRINTéca, TAB(18);"IDEM QUE SAUVEGARDE EN CASSETTE 

OU EN DISQUETTE" 

1638 PRINTIca," * 

1649 PRINTkca, TAB(18) ;"ier FICHIER : NOM DU DU FICHIER 
{ EXP : BIDON )" 

1658 PRINTICa, TAB(18);"2eme FICHIER : NOM DU DU FICHIER DPL 
OBLIGATOIRE : "LOTO-S”." 

1668 PRINTAca, TAB(19) 5 MR MIIEIENNNENNENNNNNNNNEONNNE )LK 
CEDETEF ETES EE ETEPTEEETSEESZE ETES ET LE 

1678 PRINTAca,TAB(26);*- 5 - GRILLE POUR CHACUNE DES MI )JQ 
SES." 

1688 PRINTica," * )LU 
1698 PRINT#ca, TAB(13); "LA GRILLE POUR CHACUNE DES MISES >UC 
EST CELLE DU LOTO SPORTIF" 

1788 PRINTÉca, TAB(19);"NATIONAL QUI À ETE REPRODUITE PO >YJ 

UR CE LOGICIEL AFIN QUE VOUS" 

1718 PRINTHca, TAB(18) ;"PUISSIEZ S'AVOIR COMBIEN DE FOIS >WG 
VOUS GAGNEZ PAR RAPPORT AU" 

1728 PRINTÉca, TAB(18) ;"PRIX DU BULLETIN ET DES LIGNES P TA 

ERDANTES. " 

1738 PRINTica,* * )LP 
1749 PRINT#ca, TAB(18);"1 LIG 1C = 1 LIGNE À 1 CROIX ET )TF 

2 LIG 2C = 2 LIGNES À 2 CROIX" 

1758 PRINT#ca, TAB(18);"1 LIG 2C = 1 LIGNE À 2 CROIX ET >TG 

2 LIG 1C = 2 LIGNES À { CROIX" 

1768 PRINTiCA, TAB(18) 5 INMENNNNNNNNNNENNNNNEHNE GA 

ÉÉLECEEEELECEETENTCENCESEETESEEN 


)AC 
)LL 
CN 


)LN 
)EL 


1774 GOSUB 2999 DLL 
1788 PRINT#ca,TAB(26);"- 6 - FIN DU PROGRAMME." RD 
1799 PRINT#ca," " )LY 


1888 PRINTAca, TAB(13); "L'ORDINATEUR DEMANDE SI LA SAUVE DHN 
GARDE A BIEN ETE FAÎTE" 

1819 PRINTICA," * )LN 
1828 PRINTéca, TAB(18) ;"REPONSE OUI : L'ORDINATEUR FAIT TX 
UN RESET." 

1835 PRINTca," )LQ 
1849 PRINT#ca, TAB(18) ;"REPONSE NON : L'ORDINATEUR VOUS >VG 
RENVOI EN NODE SAUVEGARDE. " 


1859 PRINT#ca," * )LT 
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1869 PRINTICa, TAB(1B) S"RMHENEEREENRNENEERENENENNENEX )GD 
CLIEITITE TETE EESTI EI 

1878 PRINTICa," A! 
1889 PRINTtca, TAB(18) ;"JE TIENS A SOULIGNE QUE L'AUTEUR >YA 
DE SE PROGRAMME À DEJA GAGNE" 

1899 PRINT#ca, TAB(18) ;"4837Foo POUR 11 BONS RESULTATS P >ZY 
OUR UNE MISE DE 4#Foo AU LOTO" 

1988 PRINT#ca, TAB(18) ;"No 45 AVEC SE PROGRAMME : JEU À )TP 
3 DOUBLES. * 


1918 PRINTca," * )LP 
1929 PRINT#ca, TAB(26); "ALORS POURQUOI PAS VOUS ?2??° )ZY 
1938 PRINT{ca,°" * LR 


1949 PRINTHca, TAB(19) 5 MARRON DKD 
CELEFEETEZTENTTENTENTEFEYT ETES T LS 

1958 GOSUB 2998 UK 
1969 GOTO 2588 DNA 
2989 LOCATE 32,25:PRINT"APPUYEZ SUR UNE TOUCHE" :CALL &B DYK 
BS#6:CLS: RETURN 

2588 CLS:LOCATE 32,12:PRINT"APPUYEZ SUR UNE TOUCHE":LOC >RK 
ATE 29,14:PRINT"ET LE PROGRAMME SE CHARGERA.":CALL &BB8 

6 

3888 RUN'loto-1" ML 


LOTO = 1 = BAS 


4! )FD 
5 * creation du programme LOTO-1 )FE 
6’ dFF 


18 KEY DEF 66,9,8,9,8:POKE &BDEE, &C9:MODE 1:BORDER 17:1 TV 
NK B,S:PAPER #:INK 1,2:INK 2,11:INK 3,26:MEMORY &9FFF:L 
OAD"HARDAS6C":FOR T=1 TO 2588:NEXT T:CLS:LOAD'SCREN-1.5 
cr": FOR T=1 T0 12888:NEXT T:FOR C=1 TO 26:LOCATE 49,25: 
PRINT" ":NEXT C 

28 FOR T=1 TO 2B98:NEXT T TH 
38 CLS:MODE B:BORDER 18:1INK 9,8:PAPER S:INK 1,1:INK 2,2 DFV 
G6:INK 3,13:INK 4,6: INK 5,18:INK 6,9:INK 7,2:INK 8,15:IN 

K 9,18: INK 19,4:INK 11,5:INK 12,7: INK 13,11:INK 14,16:L 
OAD"SCREN-2. scr":FOR T=1 TO 2B82:NEXT T:RUN"loto-13.prg 


48 ' sauvegarde LOTO-1 LD 


HARDCOPY 


1° )FA 
2 " creation du fichier HARDAB6C >FB 
3 >FC 
4" programme en binaire )FD 
5" )FE 
28 HENORY &9FFF >GD 
38 FOR i=&A#89 TO LA56C )PR 
A8 READ a$:a=VAL("&"+a$) RT 
58 POKE i,a:NEXT i )HL 


68 CLS:PRINT"inserez une disquette dans le lecteur":PRI )ZV 
NT:PRINT'et appuyez sur une touche.":CALL &BBS6 








78 SAVE"harda#6c",b, &A9SS, &56C 


88 CLS:PRINT"fin de la sauvegarde." :CALL &BBS6 


98 END 

188 DATA 96, 22, 9b, a2, a8, a2, 5, a2 
119 DATA aa, a2, af, a2, bé, a2, b9, a2 
128 DATA be, 22, c3, a2, cB, a2, cd, a2 
138 DATA d2,a2, d7,a2, de, a2, df,a2 
148 DATA cd,ai,d2,ai,d7,al,da,ai 
158 DATA 2a,a5,83,a5, dc, a4,b5, a4 
168 DATA 8e,a4,67,a4, 48, a4,19,aû 
178 DATA f2,a3, cb, a3, a4, a3, 7d,a3 
188 DATA 56, a3,2f,a3,88,a3, ei, a2 
198 DATA 1b,a2,86, a2, f1,al,dc,al 
288 DATA @b, 13, 1b, 83, 19,82, a, 1a 
218 DATA 12,1f,8f,17,87, 8d, Je, 89 
228 DATA 96,85, 1d, 15, 1e, 16,8c,94 
238 DATA 18,1c,14,88, 3e, 89, 32, 6b 
248 DATA a8, fd,21,28, a8, dd, 21,58 
259 DATA a, Be, 19,21, e6,b7,86, 19 
268 DATA 7e, dd, be, #8, 28, #d, 23,18 
278 DATA f7,3e,88,b1, 28, 59, dd, 23 
288 DATA c3, 7b,a8, e5, 21,89, af, 78 
298 DATA 2f,c6,11,87,6f,22, a2, aÿ 
388 DATA ed, 5b,11,a1, fd, 22,a9,a8 
318 DATA 21,88,a8,c5, ed, af, ed, aÿ 
328 DATA ci, fd, 23, fd, 23, 78, d6, #d 
338 DATA fa,e2,a8, 21,28, af, 78,2f 
349 DATA c6,11,87,85,6f,22, ca, aÿ 
358 DATA ed,5b,88,a9, 21, 48, a8, 3a 
368 DATA 6b,a9,87,85,6f,3a,6b, af 
378 DATA 3c,32,6b, a$, c5, ed, af, ed 
388 DATA a$,ci,8d,e1,c3,66,af,88 
398 DATA cd, ba, bb, cd, e7, bb, 32, bÿ 
488 DATA ai, cd,5c,a1,21,8f,81,22 
419 DATA bi,ai,11,88,98, 3e, 96, 32 
428 DATA b3,ai,cd,6c,ai,3a,b3,ai 
438 DATA 47,cd,11,bc, da, Ba, a2, ca 
448 DATA ci,ai,8e,88,e5,d5,c5, cd 
458 DATA f8,bb,c1,d1,21,b8#,ai,be 
468 DATA e1,37,28,91,a7,cb,11,2b 
478 DATA 18,ea,cd,a4,ai, 79, cd, 9b 
488 DATA a1,13,e5,21, 7c,92,37,ed 
499 DATA 52,e1,38,85,2a,bi,ai, 18 
588 DATA c4,23, 7c,b5, c8, 2b, 11,98 
518 DATA 88,22,b1i,ai, 3e, 83, bd, 29 
528 DATA bi, 7c,b4,28, ad, 3e, #4, 32 
538 DATA b3,a1, 18, a6, 3e, 1b, cd, 9b 
548 DATA ai, 3,33, cd, 9b, ai, 3e, 12 
558 DATA cd, 9b,ai, c9, e5, 3e, 42, cd 
568 DATA 1e, bb,e1, 28,82, e1, c9, 3e 
578 DATA Bd, cd, 9b, ai, 3e, Sa, cd, 9b 
588 DATA a1, 3e, 1b, cd, 9b, ai, 3e, 2a 
598 DATA cd, 9b, ai, 3e, 84, cd, 9b, ai 
688 DATA 3e, 7c, cd, 9b, ai, 3e, 82, cd 
618 DATA 9b,ai,c9, cd, 2e, bd, 38, fb 
628 DATA cd, 2b, bd, c9, 3a, b3,a1, fe 
638 DATA 86, cB,af, cb, 11, cb, 11, c9 
648 DATA 99,90,95,98,89,98,08,08 
658 DATA 88,2b,2b, 85,18, 83, c3, 38 
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668 DATA a2,e5,d5,c5, cd, f8,bb,ci 
678 DATA di,fe,89,ei,ca,ib, a2, d6 
688 DATA 81,ca,86,a2,d6,81,ca,f1 
698 DATA ai,c3, dc, af, 3a,b5, ai, cd 
788 DATA Sc, a2,32,b5, ai, 3a, b6,a1 
718 DATA cd, 5c, a2, 32,b6,ai,c3, b9 
729 DATA af, 3a,b5, ai, cd, 4a, a2, 32 
738 DATA b5,ai,3a, b6,ai, cd, 53, a2 
748 DATA 32,b6,a1,c3,b9,a1, 3a,b5 
758 DATA ai, cd, 4a, 2, 32,b5, ai, 3a 
768 DATA b6, ai, cd, 42,a2,32,b6,ai 
778 DATA c3,b9,ai,3a,b5,ai, cd, 42 
768 DATA a2, 32, b5, ai, 3a,b6, ai, cd 
798 DATA 42,a2,32,b6,ai,c3,b9, ai 
888 DATA cd, 51,a5, cd, 5d, a5, 3e,88 
818 DATA 32,b5,a1,32,b6, ai, 13,c3 
628 DATA 31,ai,4f,b7,cb,11,cb,11 
838 DATA 79,c9,4f,37,cb,11,b7,cb 
848 DATA 11,79,c9,4f,b7,cb, 11,37 
858 DATA cb,11,79,c9,4f,37, cb, 11 
868 DATA 37, cb, 11,79, c9,2b, 2b,85 
878 DATA 18,28,cd,51,a5, cd, 5d,a5 
888 DATA cd,62,a5, cd,67,a5,3e,88 
898 DATA 32,b5,a1,32,b6, ai, 32,b7 
988 DATA ai, 32,b8, ai, 13,13, 13,c3 
918 DATA 31,ai,e5,d5, cS, cd, f#,bb 
928 DATA ci,d1,fe,89,el,ca,2a,a5 
938 DATA d6,81, ca, #3,a5,d6,81,ca 
948 DATA dc, a4,d6,81,ca,b5,a4, d6 
958 DATA 81, ca, 8e, ad, d6,#1,ca,67 
968 DATA a4, d6,81, ca, 48,a4, 46,81 
978 DATA ca, 19,a4, d6, 81, ca, f2,a3 
988 DATA d6,81,ca, cb,a3,d6,#1,ca 
998 DATA a4,a3, d6, #1, ca, 7d,a3, d6 
1989 DATA #1,ca,56,a3, d6, 91, ca, 2f 
1818 DATA a3, d6, 91, ca, #8, a3, c3, el 
1928 DATA a2, 3a,b5, af, cd, 5c, a2, 32 
1838 DATA b5, al, 3a,b6, al, cd,5c, a2 
1948 DATA 32,b6, ai, 3a,b7,ai, cd,5c 
1858 DATA a2, 32,b7,al,3a,b8,al, cd 
1868 DATA 5c,a2, 32,b8, ai, c3,65, a2 
1878 DATA 3a,b5, al, cd, 5c, a2,32,b5 
1888 DATA al, 3a,b6,a1, cd, 5c, a2, 32 
1898 DATA b6,ai,3a,b7,al, cd, 4a, a2 
1188 DATA 32,b7,al,3a,b8, ai, cd,5c 
1118 DATA a2,32,b8, al, c3,65, a2, 3a 
1128 DATA b5,ai,cd,53,a2, 32,b5,ai 
1138 DATA 3a,b6, ai, cd, 5c, 2, 32, b6 
1148 DATA al, 3a,b7,ai, cd, 5c, a2, 32 
1158 DATA b7,al,3a,b8, ai, cd, 4a, a2 
1168 DATA 32,b8, ai, c3,65, a2, 3a, b5 
1178 DATA ai, cd, 5c, a2, 32,b5, ai, 3a 
1189 DATA b6, ai, cd, Sc, a2, 32, b6, a 
1198 DATA 3a,b7,al,cd, 42, a2,32,b7 
1288 DATA ai, 3a, b8, ai, cd, 5c, a2, 32 
1218 DATA b8, ai, c3,65, a2, 3a,b5, ai 
1229 DATA cd, 4a, 42, 32,b5, af, 3a, b6 
1238 DATA ai, cd, 53, a2, 32, b6, al, 3a 
1249 DATA b7,al, cd, 5c, a2,32,b7,ai 











1258 DATA 3a,b8,ai, cd, 4a, a2, 32,b8 
1268 DATA ai,c3,65,a2, 3a, b5, ai, cd 
1279 DATA 42, a2,32,b5, al, 3a, b6, ai 
1288 DATA cd,5c,a2,32,b6, ai, 3a,b7 
1298 DATA ai, cd, 5c, a2, 32,b7,ai, 3a 
1399 DATA b8, a, cd, 4a, a2, 32,b8, ai 
1318 DATA c3,65,a2, 3a, b5, al, cd, 42 
1328 DATA a2,32,b5,a1, 3a,b6, al, cd 
1338 DATA 5c, a2, 32,b6, al, 3a,b7,ai 
1348 DATA cd,5c,a2,32,b7,a1,3a,b8 
1359 DATA ai, cd, 42,a2, 32, b8,al,c3 
1369 DATA 65,a2, 3a,b5, a, cd, 53, a2 
1378 DATA 32,b5, al, 3a, b6, ai, cd,53 
1388 DATA a2,32,b6,a1, 3a,b7,ai,cd 
1398 DATA 53,a2,32,b7,al,3a,b8,ai 
1488 DATA cd,53,a2,32,b8,ai,c3,65 
1418 DATA a2, 3a, b5, ai, cd, 4a, 22,32 
1428 DATA b5,ai,3a,b6, ai, cd,53,a2 
1438 DATA 32,b6, al, 3a,b7, al, cd, 4a 
1448 DATA a2,32,b7,a1, 3a,b8, ai, cd 
1458 DATA 53, a2, 32, b8, al, c3,65,a2 
1469 DATA 3a,b5, ai, cd, 42, a2,32,b5 
1478 DATA ai, 3a, b6, ai, cd, da, 2, 32 
1488 DATA b6,ai,3a,b7,al,cd,5c,a2 
1498 DATA 32,b7,al,3a,b8, ai, cd, 42 
1588 DATA a2,32,b8, a1, c3,65, a2, 3a 
1518 DATA b5, ai, cd,53,a2, 32,b5, al 
1528 DATA 3a,b6, al, cd, 4a, a2, 32, b6 
1538 DATA ai,3a,b7,al,cd,53,a2, 32 
1548 DATA b7,a1, 3a,b8, ai, cd, 42, a2 
1558 DATA 32,b8, ai, c3,65,a2, 3a, b5 
1568 DATA ai,cd,53,a2, 32,b5, af, 3a 
1578 DATA b6, ai, cd, 42, a2, 32, b6, ai 
1588 DATA 3a,b7,ai,cd,53,a2, 32,b7 
1598 DATA ai, 3a, b8, al, cd, 53,a2, 32 
1688 DATA bB,ai, c3,65, a2, 3a, b5, ai 
1618 DATA cd, 42, a2, 32, b5, ai, 3a,b6 
1628 DATA ai, cd, 4a, 2, 32, b6, ai, 3a 
1638 DATA b7,ai,cd,53,a2,32,b7,ai 
1649 DATA 3a,b8, ai, cd, 42, a2, 32, b8 
1658 DATA ai,c3,65, a2, 3a, b5, al, cd 
1669 DATA 42,a2, 32,b5, a, 3a, b6, ai 
1678 DATA cd, da, a2, 32, b6, al, 3a,b7 
1688 DATA ai, cd, 42,a2,32,b7,a1, 3a 
1698 DATA b8, ai, cd, 53, a2, 32, b8, ai 
1788 DATA c3,65, a2, 3a, b5, ai, cd, 42 
1718 DATA a2,32,b5, al, 3a, b6, al, cd 
1728 DATA 4a,a2, 32,b6, ai, 3a,b7, ai 
173B DATA cd, 42, a2, 32,b7, al, 3a,bB 
1748 DATA al, cd, 42, a2, 32,b8, ai, c3 
1758 DATA 65, 2, 3a, b5, al, cd, 42,a2 
1768 DATA 32,b5, ai, 3a, b6, ai, cd, 42 
1778 DATA a2,32,b6,al,3a,b7,al, cd 
1788 DATA 42,a2,32,b7,a1, 3a,b8, ai 
1798 DATA cd, 42,a2, 32,b8, al, c3,65 
1888 DATA 22, 3a,b5,ai,4f,cd,a4, ai 
181# DATA 79, cd, 9b, al, c9, 3a, b6, al 
1828 DATA 18, f2,3a,b7,ai, 18, ed, 3a 
1839 DATA b8, ai, 18,e8, 98, 85,98,08 
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PROGRAM 1 - 
BAS 


5 * creation de prograsse : scren-{.scr DFE 
6 ’ DFF 
19 CLS:MODE 1:BORDER 6:INK #,8:PAPER 8:INK 1,2: INK 2,11 DHH 
: INK 3,26 

28 LOCATE 1,1:PEN 2:PRINT STRING$(48,CHR$(137) ); RE 
38 LOCATE 2,2:PEN 3:PRINT STRING$(38,CHR8 (137) ); >RR 
48 FOR y=1 TO 25:LOCATE 1,y:PEN 2:PRINT CHR$(137) ; :NEXT DBE 


y 
58 FOR y=1 TO 25:LOCATE 4#,y:PEN 2:PRINT CHR#(137)::NEX DCH 
Ty 
68 FOR y=1 TO 22:LOCATE 2,2+y:PEN 3:PRINT CHR#(137)::NE DDK 
XT y 
78 FOR y=1 TO 22:LOCATE 39,2+y:PRINT CHR$(137); :NEXT y DYQ 
88 LOCATE 2,24:PEN 3:PRINT STRINGS(37,CHR$(137)); )TV 
98 LOCATE 1,25:PEN 2:PRINT STRING#(39,CHR6(137) ); TX 
188 LOCATE 14,4:PEN 1:PRINT CHR$(128) ;CHR$(138) ;CHRS(14 DDR 
3); CHR$ (129) ;CHR$ (139) ;CHR$ (135) ;CHR$ (131) ; CHR (133) ;CH 
R$(136) ;CHR6 (143) ;CHR$ (132) :CHR# (138) ;CHR$(141) :CHR#(12 
8);CHR$(143) ; 

119 LOCATE 14,5:PEN 2:PRINT STRINGS(2,CHR6 (128) ) ;CHR$(1 HF 
43) ;CHR$(128) ;CHR$(138) ;CHR$ (141) ;CHR$ (133) ;CHR$(128) ;C 
HR# (143) ;CHR$ (128) ;CHR$ (143) ; CHR$ (138) ;CHR$(135) ;CHR$(1 
41); CHR$ (143); 

128 LOCATE 14,6:PEN 3:PRINT CHR$(143) ;CHR$ (128) ;CHR$(14 DDV 
3); CHR$ (128) ;CHR$ (138) ; CHR$ (133) ;CHR$ (129) ;CHR$(132) ;CH 
R#(143) ;CHR# (131) ;CHR# 1143) ;CHR$S(138) ;CHR$ (133) ;CHR$(13 

9); CHR$(143); 

138 LOCATE 14,7:PEN 3:PRINT CHR$(138) ;CHRS(131) ;CHR$(12 DGH 
9): CHR$ (128) :STRINGS (3, CHR$ (131) ) ; CHR$ (129) ;,CHR$(131);C 
HR$ (128) ; CHR (134) ;CHR$ (138) ; CHR$ (129) ; CHR$ (128) ; CHRS(1 
31); 

148 LOCATE 6,9:PEN 1:PRINT CHR#(139) ;CHR$(135) ;CHR$(131 DLA 
);CHR$ (133) ; CHR$ (139) ; CHR$ (135) ;CHR$ (139) ;CHR$ (132) ; CHR 
$(136) :CHR#(143) ;CHRS(132) ;CHR# (138) ; CHR$ (141) ;CHR$ (128 
);CHR# (143) ; CHR$ (128) ; CHR$ (142) ;CHR$(131) ;CHR$(141) ; 





158 PRINT CHR$(128) ;CHR$(142) ; CHR#(139) ;CHR$(132) ;CHR$C DAQ 
138) ;CHR$ (139) ;CHR$ (135) ;CHR$ (129) ;CHR$ (142) ;CHR$ (131); 
CHR$C141); 

169 LOCATE 6,19:PEN 2:PRINT CHR$(138) ;CHR$(141) ;CHR$(13 DGN 
3);CHR$ (128) ;CHR$ (138) ;CHR$(141) ;CHR$ (142) ;CHR# (129) ;CH 
R$(143) ;CHR$(128) ; CHR$ (143) ;CHRS (138) ;CHR$ (135) ;CHR$(14 

1) ;CHR$ (143) ;CHR$(138) ;CHR$ (133) ; 

179 PRINT CHR$(128) ;CHRS(128) ;CHR$(138) ; CHR (133) ;CHR$C QU 
128) ;CHR$ (143) ;CHR$(128) ;CHR# (138) ;CHR$ (133) ;CHRS (128) ; 
CHR$(139) ;CHR$ (148) ;CHR$(132) ; 

188 LOCATE 6,11:PEN 3:PRINT CHR$(138) ;CHR$(133) ;CHR$(12 )PC 
9);CHR$(128) ;CHR$ (138) ;CHRS (133) ;CHR# (139) ;CHR$ (132) ;CH 
R$(143) ;CHR$ (131) ;CHRS (143) ;CHRS (138) ;CHR$ (133) ;CHRS(13 
B);CHR$(143) ;CHR$ (138) ;CHR$(141) ;CHR$ (128) ;CHR$ (148) ; 


198 PRINT CHR$(138) ;CHR$(141) ;CHR$(136) ;CHR$ (135) ;CHR$( AW 
128) ;CHR$(138) ;CHR$ (133) ;CHR$(128) ; CHR$ (148) ;CHRS (128) ; 
CHR$(143); 

288 LOCATE 6,12:PEN 3:PRINT STRING$(2,CHR$(131)); STRING DCH 
$(2,CHR$ (128) ) ;CHR$ (131) ;CHR$ (129) ;CHR$ (128) ;CHR$ (129) ; 
CHR$(131) ;CHRS (128) ; CHR (131) ;CHR$ (138) ;CHR# (129) ;CHRS( 
128) ;CHR# (131) ;CHR# (128) ;CHRS (138) ;CHR#(131) ;CHR# (120); 
CHR$(128); 

219 PRINT CHR#(138) ;CHR$(131) ; ;CHR$(128)CHR$ (138) ;CHR&( DGN 
131);CHR$ (131) ;CHR$(129) ;CHRS (138) ;CHR$ (131) ; CHR$ (129) ; 


228 LOCATE 8,14:PEN L:PRINT CHR$(138) :CHR$ (141) ;CHR$(13 DVR 
6);CHR$ (143) ;CHR$ (128) ;CHR$ (142) ;CHR$ (139) ;CHR$ (132) ;CH 
R#(138) ;CHR$ (133) ;CHR$ (138) ;CHR$ (133) ;CHR$ (139) ;CHRS (13 
5):CHR$(139) ;CHR$(132) ;CHR$ (131) ;CHR$ (143) ;CHR$(131) ;CH 
R$(138); 

238 PRINT CHR$(143) ;CHR$(131) ;CHR$ (139) ;CHR$(138) ;CHR$( DHJ 
143) ;CHR$(131) ;CHR$(141) ; 

248 LOCATE 8,15:PEN 2:PRINT CHR$(138) ;STRINGS(3,CHR$(14 DHY 
3)) ;CHR$ (138) ;CHR$ (133) ; :CHR$ (128) :CHR$ (143) ; CHR$ (138) ; 
CHR$(133) ;CHR# (138) ;CHR$ (133) ;CHR$ (138) ;CHRS(141) ;CHR#( 
142) ;:CHR$(129) ;CHR$ (128) ;CHR$ (143) ;CHR$(128) ; CHR$ (128) ; 
CHR$(143) ;CHR$(142) ; 

258 PRINT CHR$(128) ;CHR$(128) ;CHR$(143) ;CHR$(148) ;CHR$( DFP 
135); 

268 LOCATE 8,16:PEN 3:PRINT CHR$(138) ;CHR$(133) ;CHR$(12 )VH 
9):;CHR$(143) ;:CHR$(138) ;CHR$ (141) ;CHR$ (136) ;CHR$ (135) ; CH 
R$(138) ;CHR$ (133); CHR$ (138) ;CHR$(133) ; CHR$ (138) ;CHR$(13 
3);CHR$ (139) ;CHR$ (132) ; CHR$ (128) ; CHR$ (143) ;CHR$ (128) ; CH 
R$(128); 

278 PRINT CHR$(143) ;CHR$ (138) ;CHR$ (136) ;CHR$(128) ;CHR$( DHQ 





































































































143) ;CHR$ (138) ;CHR$ (141) ; 

288 LOCATE 8,17:PEN 3:PRINT CHR$(138) ;CHR#(129) ,;CHR$(12 DXQ 
8);CHR$(131) ;CHR$ (128) ;CHR$ (139) ; CHR$ (131) ;CHR$(128) ;CH 
R$(128);STRINGS (2, CHR$(131)) ;CHRS (128) ;CHR$ (131) ;CHRS(L 

29) ;CHRS (128) ; CHR$ (129) ; STRINGS (3, CHR$(131)) ;CHRS (138); 


299 PRINT STRINGS(3,CHR$(131)) ;CHR$ (139) ;CHR$ (131) ;CHR$ DUN 
(128) ; CHR$ (139) 

388 LOCATE 6,19:PEN 1:PRINT CHR$(139) ;CHR#(135) ;CHR$(13 )QZ 
9) ;CHR$(132) ; 

318 PRINT CHR$(139) ;CHR$ (135) ;CHR$ (139) ; CHR$(132) ; JUX 
328 PRINT CHR$(139) ;CHR$ (135) ;CHR$ (131) ; CHR$ (133); UF 
339 PRINT CHR$(142) ;CHR$(131) ;CHR$ (141); GC 
348 PRINT CHR$(138) ;CHR$ (143) ;CHR$ (131) ;CHR$ (139) ; UD 
358 PRINT CHR$(138) ;CHR$ (141) :CHR$ (128) :CHR$(143) ; JUX 
368 PRINT CHR$(138) ;CHR$(139).;CHR$ (135) ; CHR$ (133) ; UT 
378 PRINT CHR$(139) ;CHR$ (135) ;CHR$ (131) ;CHR$(133) ; JUL 
388 LOCATE 6,29:PEN 2:PRINT CHR$(138) ;CHR$(141);CHR$(13 DQX 
D); CHR$(129) ; 

398 PRINT CHR#(138) ;CHR$(141) ;CHR$ (142) :CHR$(129) ; DUR 
458 PRINT CHR$(138) ;CHR#(141) ;CHR$(133) ;CHR$ (128) ; UG 
419 PRINT CHR$(139) ;CHR$ (148) ;CHR$ (132) ; )GH 
428 PRINT CHR$(128) ;CHR$(143) ;CHR$ (142) ; CHR$ (128); >UK 
438 PRINT CHR#(138) ;CHR$(135) ;CHR# (141) ;CHR$(143) ; )UJ 
448 PRINT CHR$(128) ;CHR$ (138) ;CHR$(133) ; CHR$ (128) ; >UR 
459 PRINT CHR$(138) ;CHR$ (141) ;CHR$ (133) ; DHE 
468 LOCATE 6,21:PEN 3:PRINT CHR$(138) ;CHR$(133) ;CHR#(12 DQB 
8); CHR$(128); 

479 PRINT CHR$(138) ;CHR$ (133) ;CHR$ (139) ;CHR#(132) ; >UR 
488 PRINT CHR$(138) ;CHR$(133) ;CHR$ (129) ;CHR$ (132) ; JUR 


498 PRINT CHR#(148) ;CHR$(128) ;CHR$ (143) ; HH 
588 PRINT CHR$ (128) ;CHR$(143) ;CHR$(138) ;CHR$ (136) ; JUE 
518 PRINT CHR$(138);CHR$ (133) ;CHR# (138) ;CHR$(143) ; UD 
528 PRINT CHR$(128) ;CHR$ (138) ;CHR$(133) ;CHR$ (128) ; )UQ 
538 PRINT CHR#(138) ;CHRS (133) ;CHR# (129) ;CHR$ (132) ; JU 


548 LOCATE 6,22:PEN 3:PRINT CHR$(131) ;CHR$(131) ;CHR$(12 )QR 

8);CHR$(128) ; 

558 PRINT CHR#(131);CHR$(129) ;CHR$ (128) ;CHR$(129) ; DUT 

568 PRINT CHR$(131) ;CHR$(131) ;CHR$ (131) ;CHR$ (129) ; JUE 

578 PRINT CHR$(138) ;CHR$(131) ; CHR$ (129); HD 
_ 588 PRINT CHR$(138) ;CHR$(131) ;CHR$(131) ;CHR$ (131); )TG 

599 PRINT CHR$(138) ;CHR$(129) ; CHR$ (128) ;CHR$ (131) ; JUN 


658 PRINT CHR$(128) ;CHR$(131) ;CHR$ (131) ; CHR$ (128) ; UE 
618 PRINT CHR$(131) ;CHR$(131) ;CHR$ (131) ; CHR$(129) ; JUA 
628 SAVE"scren-1.scr",b, 4C998,&4988:CALL &BBS6 )RR 


PROSRAM2 = BAS 


4! )FD 
5 creation du programme: scren-2.scr )FE 
6 ’ dFF 
18 REM rsx---> ST=SIMPLE TAILLE DAE 
28 REN rsx---> DT-DOUBLE TAILLE DAY 
39 REM rsx---> DL=DOUBLE LARGEUR )BL 
48 REN rsx---) DH=DOUBLE HAUTEUR >B4 
58 a=&8988:FOR i=198 TO 498 STEP 19:5=$ DU 


68 FOR j=1 TO 18 
78 READ x$:xx=VAL("&"+x$) :POKE a,xx:s=stxx:a=ati 
88 NET j 


188 NEXT i 

118 CALL &8889:üDT:GO0TO 438 

129 DATA 2a, d4, bd, 22, 2b, 88,81, 13,88, 21,629 
138 DATA 8f,89,c3,d1,bc, 98,88, 98,58,21,768 
149 DATA 88, c3, 2d, 88, c3, 34, 88, c3, 3b, 88, 1253 
159 DATA c3, 42,88, 44, cc, 44, cB, 44, d4,53, 1292 
169 DATA d4,88,c3,ff,ff,21,49, 89, 22, d4, 1397 
178 DATA bd, c9,21,97,88, 22, dé, bd, c9,21,1371 
189 DATA ce, 89, 22, d4, bd, cO, 2a, 2b, 88,22, 1217 
198 DATA dé, bd, c9, f5,e5, Le, #2, cd, a5, bb, 1665 
288 DATA 3e,19, cd, 5a, bb, 3e, ff, cd, Sa, bb, 1368 
218 DATA 8e, 98,86, 84,56, af, cb,4b,28,8e,617 
228 DATA cb,22, cb, 22, cb, 22, cb, 22, 18, 84,976 
238 DATA cb,27, cb, 27, cb, 22,38, 92, f6,83, 1928 
248 DATA 18,f4, cd, 5a, bb, 23, ÿd, 28, db, 3e, 1183 
258 DATA ff,el,d5,e5, cd, 2a,88,e1, di, 1d, 1768 
268 DATA c8,3e, 89, cd, 5a, bb, f1,24,e5, 18, 1283 
278 DATA b6, f5,2d, e5, Le, 82, cd, a5, bb, 3e, 1352 
288 DATA 19, cd, Sa, bb, 3e, ff, cd, 5a, bb, 86, 1312 
298 DATA 84, cb, 4b, 29,84, 23,23, 23,23, 7e,584 
388 DATA cd, 5a, bb, cd, 5a, bb, 23, 19, f6, 3e, 1323 
318 DATA ff,e1,d5,e5, cd, 2a,88,e1, 2c, di, 1775 
329 DATA 1d,c8,f1,e5,18, ce, f5, 2d,e5, 1e, 1478 
338 DATA 84, cd, a5, bb, 3e, 19, cd, 5a, bb, 3e, 1192 
348 DATA ff,cd,5a, bb, cb, 43, 26, 84, 23,23, 1121 
354 DATA 23, 23, fe, 54,86,84,56,7b,fe,93,564 
368 DATA 38,88, cb, 22, cb, 22, cb, 22, cb, 22, 1984 
378 DATA af,cb,27, cb, 27, cb, 22,38, 82, f6, 1192 
388 DATA 83,19, f4, cd, 5a, bb, cd, 5a, bb, 23, 1262 
398 DATA 9d, 28,49, 3e, ff,e1,d5,e5, cd, 2a, 1493 
499 DATA 88,e1,di, cb, 43, c2,21,81, 2c, 7b, 1355 
419 DATA fe, 93, c2, 2e, 61, 3e, 89, cd, 5a, bb, 1179 
428 DATA 24,24, f1,1d,c8,f5,e5, 18, 9e, 89, 1287 


448 LOCATE 6,4:PEN 1:PRINT"L" 
458 LOCATE 9,4:PEN 2:PRINT"0" 
468 LOCATE 12,4:PEN 4:PRINT"T" 
478 LOCATE 15,4:PEN 9:PRINT"0" 
488 LOCATE 1,18:PEN 8:PRINT"S" 
498 LOCATE 4,19:PEN 11:PRINT"P" 
588 LOCATE 7,18:PEN 5:PRINT"O" 
518 LOCATE 18, 19:PEN 12:PRINT"R" 
528 LOCATE 13,18:PEN 3:PRINT"T" 
538 LOCATE 16, 19:PEN 14:PRINT"I" 
548 LOCATE 19,18:PEN 13:PRINT"F" 
558 LOCATE 7,16:PEN 1:PRINT"1" 
568 LOCATE 18,16:PEN 2:PRINT"N" 
578 LOCATE 13, 16:PEN 4:PRINT"2" 
588 LOCATE 6,23:PEN 9:PRINT"1" 
598 LOCATE 9,23:PEN 18:PRINT"9" 
688 LOCATE 12,23:PEN 14:PRINT"9" 
618 LOCATE 15,23:PEN 7:PRINT"#" 
628 SAVE"SCREN-2.SCR",B, &CB98, 44889 :CALL &BBS6 
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98 READ xx:1F sCxx THEN PRINT "erreur en ligne"; i:END 


438 CLS:MODE 9:BORDER 19:INK #,8:PAPER 8:INK 1,1:1NK 2, 
26: INK 3,13:INK 4,6:INK 5,18:INK 6,9:1NK 7,2:1NK 8,15:1 
NK 9,18:INK 19,4:INK 11,5:INK 12,7: INK 13,11:INK 14,16 


JJX 
XKD 
)JN 
C2 


)XH 
)XR 
YU 
NY 
JYU 
)ZQ 
>YK 
AK 
)ZN 
AL 
AL 
DK 
)ZN 
)ZP 
YU 
)ZA 
)ZA 
)ZK 
>PG 





LOTO = 18 = BAS 


1 "REDEFINITION DE TOUCHE ()="$ cpc 464 )FA 
2 KEY DEF 17,1,48: TOUCHE * '(' )LN 
3 KEY DEF 19,1,41:' TOUCHE $ ’)’ )LA 
4 KEY DEF 24,1,61:° TOUCHE * =" )LZ 
5 KEY DEF 26,1,34:' TOUCHE à ’"” )LC 
6 KEY DEF 22,1,36:' TOUCHE ç '#" LB 
7 KEY 139," locate " )0 
8 KEY 138, "print" NP 
9 INK #,13:IK 1,9:MODE 2:BORDER 3:LIST )GH 
18 ‘ nourier jean francois >LA 
28 * 32 rue jules guesde )LB 
38 " 42B88 rive de gier )LC 
4 LD 
58 ‘ ecrire si vous rencontrez )LE 
68 " un problese )LF 
78 ' j'ai deja gagne 4837.98 >LG 
88 * avec 11 bons resultats pour une aise de 49.88 LH 


98 " alors pourquoi pas vous ?7? )LJ 


188 une fois le programme teraine )RB 
182 * suprine la virgule de la ligne 118 )RD 
184 " touche 118 gel le breaktshift+ctritesc )RF 
186 ” faire delete 1-8 avant >RH 
188 de sauvegarder le programme )RK 
189 ” sous le nos loto-13.prg )TA 
118 "KEY DEF 66,8,9,9,8:POKE &BDEE, &C9 )RC 


128 FOR c=1 TO 26:LOCATE 29,25:PRINT" ":NEXT c:FOR t:1 )PU 
TO 3888:NEXT t 

138 INK #,13:INK 1,9 HD 
148 CLS:MODE 1:BORDER 6:LOCATE 11,13:PRINT'NUMERO DU LO )HZ 
TO SPORTIF":LOCATE 28,15: INPUT *",NUMS:CLS:LOCATE 7,13: 
PRINT®LE NUMERO DU LOTO SPORTIF EST":LOCATE 15,15:PRINT 
*DONC LE No ";NUMS:FOR T=1 TO SSBS:NEXT T 

158 CLS:BORDER 2:LOCATE 11,13:PRINT"DATE DU LOTO SPORTI BF 
F":LOCATE 17,15: INPUT "*,DATES:CLS:LOCATE 9, 13:PRINT"CE 
LOTO SPORTIF SE JOUERA ":LOCATE 12,15:PRINT"DONC LE : 
"DATES:FOR T=1 TO SHBS:NEXT T 

168 DIM n(13):DIM loc$(13):DIM ci(13):DIM vis$(13):DIM )LW 
cv(13):DIM prono$(13):DIN d(13):DIM p1(13):DIM p2(13) :D 

IN p3(13):DIM rep$(13):DIM r#(13) 


178 INK #,13:INK 1,9:INK 2,8:INK 3,9 )BE 
188 BORDER 1 | )CB 
198 CLS:MODE 1 US 
288 LOCATE 12,13:PRINT "PASSEZ EN MAJUSCULE" )PI 
218 FOR t=1 TO 458B:NEXT t TR 
228 ? RE 
238  senu principal RF 
248 RG 
258 CLS:MODE 1:BORDER 8:PEN 1:LOCATE 18,3:PRINT"# NENU DRU 
#":LOCATE 18, 4:PRINT"-------- ® 

268 LOCATE 6,8:PRINT "-5- ENTREE MODE MANUELLE" >UQ 


278 LOCATE 6,18:PRINT “-1- PRONOSTIC SUR 13 MATCHS EN )DJ 
g" 


288 LOCATE 6,12:PRINT "-2- GRILLE DU LOTO SPORTIF" )XD 
298$ LOCATE 6,14:PRINT “-3- SAUVEGARDE DES PRONOSTICS" )BT 
388 LOCATE 6,16:PRINT *-4- LECTURE DES PRONOSTICS" )YL 








318 LOCATE 6,18:PRINT "-5- GRILLE POUR CHACUNE DES MIS GE 
ES" 


328 LOCATE 6,28:PRINT “-6- FIN DU PROGRAMME" >PH 
338 R$=INKEY$ QG 
348 1F R$="#" THEN GOSUB 4198:G070 1338 DEF 
358 1F R$="1" THEN GOSUB 4198:G07T0 4288 )EG 
368 IF R$="2" THEN GOSUB 4198:GO0T0 2878 )EN 
378 IF R$="3" THEN GOSUB 4198:G0T0 429 DA 
388 1F R$="4" THEN GOSUB 4198:GO0T0 1938 )EL 
398 1F R$="5" THEN GOSUB 4198:G0T0 2278 )EV 
488 1F R$="6" THEN GOSUB 4198:G0T0 1798 DEV 
418 GOTO 338 )YH 
428 RG 
439 * sauvegarde cassette ou disquette RH 
TR RJ 
458 ’cpc 464 sans lecteur de disquette >RK 
468 ’supprise Itape ligne 518 et Idisc ligne 528 )TA 


478 MODE 1:PEN 1:LOCATE 3,12:PRINT "SAUVEGARDE SUR CASS >DZ 
ETTE OU DISQUETTE" 


488 LOCATE 14,14:PRINT "-C- CASSETTE. .* GA 
498 LOCATE 14,16:PRINT "-D- DISQUETTE. * HV 
585 R$=INKEYS >QF 


518 IF R$="C" OR R$="c" THEN GOSUB 3968:üTAPE:GOTO 548 XV 
529 IF R$="D" OR R$="d" THEN GOSUB 4198:üDISC:GOTO 5368 )Y4 
538 GOTO 598 D LA 
548 CLS:LOCATE 1,11:PRINT"QUELLE EST LE NON DE L'ENREGI )TD 
STREMENT" 


558 LOCATE 8,16: INPUT "NOM DU FICHIER : *,non$ >QQ 
568 IF non$="" THEN 548 )>PQ 
578 nonm$=UPPER$(non$):1F non$=":" THEN 258 )JQ 
588 non$=LEFT$(non$,8)+".1N2" )\T 
598 IF non$=":" THEN 258 >) 
698 CLS:OPENOUT "!"+N0M$ )TP 


618 LOCATE 9,2:PRINT "LA CASSETTE EST-ELLE PRETE. ":LOCA DLV 
TE 16,4:PRINT "OUI / NON" 

628 R$=INKEYS )QJ 
638 IF R$="0" OR R$="o" THEN GOTO 668 )BV 
648 IF R$="N" OR R$="n" THEN LOCATE 12, 14:PRINT “INSERE DFD 
Z UNE CASSETTE" :LOCATE 13,16:PRINT "DANS LE DATACORDER" 
:LOCATE 11,18:PRINT "APPUYER SUR UNE TOUCHE":CALL &BBS#6 
:CLS:GOTO 668 

658 GOTO 628 >2F 
668 LOCATE 7,6:PRINT "ALORS APPUYEZ SUR LES TOUCHES" :LO >DD 
CATE 14,6:PRINT "'REC’ ET "PLAY'":LOCATE 14,18:PRINT "D 

U DATACORDER ET":LOCATE 8,12:PRINT "TAPEZ SUR LA BARRE 
D'ESPACE." 


678 R$=INKEYS:1F R$=" * THEN 848 »1D 
688 GOTO 678 )AD 
698 CLS:LOCATE 2,11:PRINT"QUELLE EST LE NOM DE L'ENREGI DUY 
STREMENT.* 

788 LOCATE 8,16: INPUT "NOM DU FICHIER : ",non$ > 
718 IF nont="" THEN 698 >PU 
728 nos$=UPPER$(nos$):1F non$=":" THEN 258 )JH 
738 non$=LEFT$(non$,8)+".1N2" >XP 
748 IF NOM$=":" THEN 258 )R 


758 CLS:OPENOUT NOM$ QU 
768 LOCATE 9,2:PRINT “LA DISQUETTE EST-ELLE PRETE.":LOC DNV 
ATE 16,4:PRINT "OUI / NON" 


778 R$=INKEYS RE 
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788 1F R$="0" OR R$="o" THEN GOTO 2189 )CB 
799 IF R$="N" OR R$="n" THEN LOCATE 12,14:PRINT "INSERE DLF 
Z UNE DISQUETTE":LOCATE 13,16:PRINT "DANS LE LECTEUR ET 
“:LOCATE 12,18:PRINT "APPUYER SUR UNE TOUCHE" :CALL &BBS 
6:CLS:G0TO 2188 


888 GOTD 778 )2J 
818 LOCATE 8,12:PRINT "TAPEZ SUR LA BARRE D’ESPACE."  )ZP 
828 R$=INKEYS:IF R$=" * THEN 848 )YA 
838 GOTO 828 )ZH 
848 LOCATE 18,14:PRINT "ENREGISTREMENT EN COURS" VF 
658 FOR N=1 TO 13 >DD 


668 PRINT#9, Loc$(N) :PRINT#9, vis$(N) :PRINTE9, prono$ (N):P )PT 
RINTA9, pi (N) :PRINT#9, p2(N) :PRINT#9, p3(N) 


878 NEXT N )PJ 
888 CLOSEOUT >TG 
898 LOCATE 18,16:PRINT “FIN DE L’ENREGISTREMENT." WG 
988 FOR T=1 TO 188#9:NEXT )TZ 
918 CLS DUE 
928 GOTO 258 )ZE 
938 ? )TC 
948 ’ )TD 
958 )TE 
968 ’ chargement des donnees )TF 
978 )TG 
988 " cpc 464 sans lecteur de disquette TH 
998 * supprise Itape ligne 1988 )TJ 
1898 ? supprine Idisc ligne 1998 XD 
1818 ! )XE 
1929 XF 
1838 )XG 


1949 CLS:PEN 1:NODE 1:BORDER 3:LOCATE 16, 18:PRINT°CHARG HR 
EMENT":LOCATE 6, 12:PRINT"SUR CASSETTE OÙ DISQUETTE" 


1859 LOCATE 14,14:PRINT"-C- CASSETTE. ." )HKK 
1868 LOCATE 14,16:PRINT"-D- DISQUETTE. * )JF 
1978 R$=INKEYS >XK 
1888 1F R$="C" OR R$="c" THEN GOSUB 4988:àTAPE:GOTO 113 ZM 
$ 

1899 IF R$="D" OR R$="d" THEN GOSUB 419ÿ:àDISC:GOTD 543 DZT 
$ 

1198 GOTO 1979 >LH 
1118 XF 
1128 ? >XG 
1138 >XH 
1149 CLS:MODE 1:BORDER 18:PEN 1 )YZ 


1159 LOCATE 2,12:PRINT'QUELLE EST LE NOM DU FIHIER A CH DMF 
ARGER. * 


1169 LOCATE 8,16:INPUT “NOM DU FICHIER : ",noa$ DRE 
1179 IF non$="" THEN 1158 )RI 
1188 non$=UPPER$ (noa$):1F nomt=":" THEN 239 >KX 
1199 non$=LEFT$ (non$,8)+".1N2" )YQ 
1288 1F NON$:":" THEN 238 )RX 


1219 LOCATE 1,18:PRINT "PREPAREZ LA CASSETTE, APPUYEZ S DTA 
UR ESPACE" 


1225 R$=INKEYS:1F R$=" " THEN 1249 )2D 
1239 GOTO 1229 )LJ 
1248 LOCATE 12,21:PRINT "LECTURE EN COURS" HF 
1259 OPENIN *!"+N0M$ )NY 
1268 FOR N=1 TO 13 LH 


1278 INPUT#9, Loc$ (N) : INPUT#9, vis$(N) : INPUTH9, prono$(N): >WG 











INPUT#9, pi (N) : INPUT#9, p2(N) : INPUT49, p3(N) : IF EOF=1 THEN 
1298 


1288 NEXT N >WB 
1298 CLOSEIN )MC 
1388 LOCATE 8,23:PRINT "LES DONNEES SONT EN MEMOIRE"  >ZG 
1319 FOR T=1 TO 7588:NEXT T DUP 
1328 GOTO 248 )EH 
1338 ’ rentree des donnees )XK 
1348 CLS:NODE 1:PEN 1:BORDER 9 JW 
1359 FOR N=1 TO 13 )LH 
1368 LOCATE 16,1:PRINT "MATCH No";N )DF 
1378 LOCATE 9,4:INPUT "EQUIPE LOCALE : ",LOC$(N) )TU 
1389 IF LEN(Ioc$(n))»11 THEN loc$(n)=LEFT$(Ioc$(n),11) )YD 
1398 IF LOC$(N)="" THEN 1378 JUE 


1488 LOCATE 9,7:INPUT "CLASSEMENT ACTUEL : ",CL(N) WG 
1419 LOCATE 6,18: INPUT "EQUIPE VISITEUSE : ",VISS(N)  >YC 
1428 IF LEN(vis$(n))»11 THEN vis$(n)=LEFT$(vis$(n),11) DYN 
1439 IF VIS$(N)="" THEN 1418 YU 
1448 LOCATE 9,13:INPUT "CLASSEMENT ACTUEL : ",CVUN) JXR 
1458 LOCATE 1,16:INPUT "RESULTAT DU MATCH L'AN DERNIER )VJ 
0 / N°",R$(N) 


1468 IF R$(N)="0" THEN 1488 )TU 
1479 IF R$(N)="N" THEN 1518 ELSE 1458 )B1 
1488 PRINT:PRINT HN 


1498 LOCATE 2,28: INPUT "L’EQUIPE LOCALE AVAIT-ELLE ? G. )WP 
N.P ? ",REP$(N) 
1589 1F REP$(N)="G" OR REP$(N)="N" OR REP$(N)="P" THEN DLV 
1519 ELSE 1498 


1515 GOSUB 1598 )XE 
1528 CLS )ZH 
1538 GOSUB 169$ )XH 
1549 NEXT N VA 
1558 CLS:GOTO 248 LR 
1569 )YE 
1578 " sp de calcul DYF 
1588 )YG 
1598 DCN)=CV(N)-CL(N) PH 
1688 P1(N)=INT(1. 85534D(N) +45) >XD 
1618 P2(N)=INT(-9.8184#(D(N)*2)+27) )BA 
1628 P3(N)=199-(P1(N)+P2(N)) NY 
1638 IF r$(n)="N" THEN 1678 TT 


1648 IF REP$(N)="G" THEN P1(N)=PI(N)+18:P3CN)=P3CN)-18 XI 
1658 IF REP$#(N)="N" THEN P2(N)=P2(N)+5:P3(N)=P3(N)-3:P1 DHL 
(N)=P1(N) -2 

1669 IF REP$(N)="P" THEN P3(N)=P3(N)+5:PLCN)=PLON)-S  DVP 


1678 IF P3(N)<8 THEN P3(N)=# VF 
1688 RETURN )FJ 
169g NY] 
1788 * sp de calcul )YA 
1718 ? )YB 
1728 B$=°" )CD 
1738 IF P1(N)>P3(N)+5 THEN PRONOS$ (N)=LOC$(N) )LR 
1748 1F ABS(P1(N)-P3(N))<=5 THEN PRONO$ (N)=B4 HP 


1758 IF P3(N)>P1(N)+5 AND (PL(N)+INT(P2(N)/2))CP3(N) TH )ZJ 
EN PROND$(N)=VIS$(N) | 
1768 IF P3(N)DP1(N)+5 AND (P1CN)+INT(P2(N)/2))>P3CN) TH DRM 
EN PRONO$ (N)=B$ 

1778 RETURN )FJ 
1789 NY] 
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1798 YK 
1899 * fin de prograane )YB 
1818 ’ )YC 
1828 ? )YD 
1838 )YE 
1849 HODE 1:BORDER 15:PEN 1:CLS )ZH 
185 LOCATE 6,12:PRINT®AVEZ-VOUS FAIT VOS SAUVEGARDE"  )CB 


1868 LOCATE 16,14:PRINT"OUI - NON" 

1878 Z$=INKEY$ 

1888 IF Z$="0" OR Z$="o" THEN GOTO 5594 

1895 IF Z$="N" OR Z$="n" THEN GOTO 448 

1989 GOTO 187$ 

1919 CLS:MODE 1:BORDER {8:PEN 1 

1928 LOCATE 1,11:PRINT'QUELLE EST LE NOM DU FIHIER A CH 
ARGER" 


)CJ 
)2F 
)DG 
)CT 
ND 
)YE 
)LA 


1938 LOCATE 8,16:INPUT "NOM DU FICHIER : ",nom$ )RK 
1949 IF nos$="" THEN 239 )QE 
1958 non$=UPPER$ (non$):1F non$t=":" THEN 239 >KC 
1969 non$=LEFT$ (nom$, 8)+",1N2" WW 


1978 1F NOM$:":" THEN 238 

1988 LOCATE 1,18:PRINT "PREPAREZ LA DISQUETTE APPUYEZ S 
UR ESPACE" 

1998 R$=INKEYS:1F R$=" " THEN 2918 


RH 
DUJ 


)AF 


2588 GOTO 1999 MJ 
2818 LOCATE 12,29:PRINT "LECTURE EN COURS" HA 
2828 OPENIN NON$ LV 


2838 FOR N=1 TO 13 LH 
2848 INPUT#9, Loc$(N) : INPUTA9, vis$ (N) : INPUT#9, prono$ (N): >VG 
INPUT#9, pl (N) : INPUT#9, p2CN) : INPUTA9, p3CN) :1F EOF=1 THEN 
286$ 


2858 NEXT N >VH 
2968 CLOSEIN )LJ 
2878 LOCATE 8,22:PRINT "LES DONNEES SONT EN MEMOIRE"  )ZL 
2589 FOR T=1 TO 75#8:NEXT T UV 


2999 GOTO 248 

2189 LOCATE 8,12:PRINT "TAPEZ SUR LA BARRE D'ESPACE. * 
2119 R6=INKEYS:IF R$=" " THEN 2139 

2129 GOTO 2188 

2138 LOCATE 19,14:PRINT "ENREGISTREMENT EN COURS" 
2149 FOR N=1 TO 13 

2158 PRINT49, loc$ (N) :PRINTAS, visé (N) :PRINTH9, prono$ (N) : 
PRINT#9, pi (N) :PRINTEQ, p2(N) :PRINTE9, p3 (N) 

2168 NEXT N 

2178 CLOSEOUT 

2189 FOR T:1 TO SBBD:NEXT t 

2199 f$="x. bak 

2288 ERA, àft 


>QH 


>VK 
)ZA 
JUN 
XF 
>QG 


2219 LOCATE 19,16:PRINT "FIN DE L'ENREGISTREMENT." WI 
2228 FOR T=1 TO {B888B:NEXT t VB 
2238 CLS:GO0T0 258 )LN 


2248 ! YA 
2258 ’ calcul des gains pour chacune des mises )YB 
2268 )YC 
2278 PEN 1:PAPER #:CLS:MODE 2:BORDER 13 )GH 


2288 FOR y=1 TO 25:LOCATE 1,y:PRINT CHR$(149);:NEXT y:F DLQ 
OR y=1 TO 22:LOCATE 4,y:PRINT CHR$(149); :LOCATE 13,y:PR 

INT CHR$(149) ;:MEXT y:FOR y=1 TO 25:LOCATE 26,y:PRINT C 

HR$ (149); :LOCATE 88,y:PRINT CHR$ (149); :NEXT y:LOCATE 1, 
25:PRINT CHR$(147) ; 





2298 LOCATE 1,1:PRINT CHR$(158);:FOR x=1 TO 78:LOCATE 1 DYL 

+x,1:PRINT CHR$(154) ; :NEXT x:LOCATE 4,1:PRINT CHR$(158) 
ÿ2LOCATE 13,1:PRINT CHR$(158) ; :LOCATE 26,1:PRINT CHR$(1 

58); :LOCATE 88,1:PRINT CHR$(156) ; 

2398 FOR x=1 TO 54:LOCATE 25+x,3:PRINT CHR$(154);:NEXT DAC 
x 

2318 FOR x=1 TO 79:LOCATE 1+x,5:PRINT CHR$(154) ;:LOCATE ZE 
1+x,9:PRINT CHR$(154) ; :LOCATE 1+x,15:PRINT CHR$(154) ; : 

LOCATE 1+x,22:PRINT CHR$(154) ; :LOCATE 1+x,25:PRINT CHR$ 
(154); :NEXT x 

2328 LOCATE 26,3:PRINT CHR$(151) ; :LOCATE 26,5:PRINT CHR D AG 
$(159) ; :LOCATE 88,25:PRINT CHR$(153); 

2338 FOR x=1 TO 75:LOCATE 4+x,12:PRINT CHR$(154); :LOCAT DVT 
E 4+x,17:PRINT CHR$(154); :LOCATE 4+x,28:PRINT CHR$(154) 
;:NEXT x 

2348 FOR y=1 TO 18:LOCATE 28,y+3:PRINT CHR$(149) ; :LOCAT DBE 

E 31,y+t3:PRINT CHR$(149) ; :LOCATE 34,y+3:PRINT CHR$ (149) 
2LOCATE 37,y+3:PRINT CHR$(149) ; :LOCATE 48,y+3:PRINT CH 
R$(149) ; :LOCATE 43,y+3:PRINT CHR$(149) ; :LOCATE 46,y+3:P 
RINT CHR$(149);:NEXT y 

2358 FOR y=1 TO 18:LOCATE 49,y+3:PRINT CHR#(149) ; :LOCAT DTK 
E 52,y+3:PRINT CHR$ (149); :NEXT y 

2369 FOR y=1 TO 18:LOCATE 56,y+3:PRINT CHR#(149) ; :LOCAT )LK 

E 68,y+3:PRINT CHR$(149) ; :LOCATE 64,y+3:PRINT CHR$(149) 
;2LOCATE 68,y+3:PRINT CHR$(149) ; :LOCATE 72,y+3:PRINT CH 
R$(149) ; :LOCATE 76,y+3:PRINT CHR$(149) ; :NEXT y 

2378 LOCATE 1,5:PRINT CHR$(151);:LOCATE 1,9:PRINT CHR$( DTF 
151); :LOCATE 4,12:PRINT CHR$(151) ; :LOCATE 1,15:PRINT CH 


| R$(151);:LOCATE 4,17:PRINT CHR$(151); :LOCATE 4, 29:PRINT 


CHR$(151) ; :LOCATE 1,22:PRINT CHR$(151); 
2388 LOCATE 88,3:PRINT CHR$(157); :LOCATE 8#,5:PRINT CHR DYK 
$(157);:LOCATE 88,9:PRINT CHR$(157);:LOCATE 88, 12:PRINT 
CHR$ (157) ;:LOCATE 88, 15:PRINT CHR$(157) ;:LOCATE 88,17: 
PRINT CHR$(157);:LOCATE 89,28:PRINT CHR$(157); :LOCATE 8 
#,22:PRINT CHR$(157); 
2398 LOCATE 28,3:PRINT CHR$(158); :LOCATE 31,3:PRINT CHR DHT 
$(158); :LOCATE 34,3:PRINT CHR$(158) ;:LOCATE 37,3:PRINT 
CHR$(158) ; :LOCATE 48,3:PRINT CHR$(158) ; :LOCATE 43,3:PRI 
NT CHR$ (158); :LOCATE 46,3:PRINT CHR$(158) ; :LOCATE 49,3: 
PRINT CHR$(158); 
2488 LOCATE 52,3:PRINT CHR$(158) ; :LOCATE 56,3:PRINT CHR DZU 
$(158); :LOCATE 68,3:PRINT CHR$(158) ;:LOCATE 64, 3:PRINT 
CHR$(158);:LOCATE 68,3:PRINT CHR$(158) ; :LOCATE 72,3:PRI 

NT CHR$(158) ; :LOCATE 76,3:PRINT CHR$(158) ; 

2419 LOCATE 4,22:PRINT CHR$(155) ; :LOCATE 13,22:PRINT CH DDZ 
R$(155) ;:LOCATE 28,22:PRINT CHR$ (155); :LOCATE 31,22:PRI 
NT CHR$(155);:LOCATE 34,22:PRINT CHR$(155) ; :LOCATE 37,2 
2:PRINT CHR$(155);:LOCATE 48,22:PRINT CHR$ (155) ; :LOCATE 
43,22:PRINT CHR$(155); 

2429 LOCATE 46,22:PRINT CHR$(155) ;:LOCATE 49,22:PRINT C >GH 
HR$ (155) ; :LOCATE 52,22:PRINT CHR$(155) ; :LOCATE 56,22:PR 

INT CHR$(155); :LOCATE 69,22:PRINT CHR#(155) ; :LOCATE 64, 
22:PRINT CHR$(155) ; :LOCATE 68,22:PRINT CHR$ (155) ; :LOCAT 

E 72,22:PRINT CHR$(155); 

2435 LOCATE 26,25:PRINT CHR (155); :LOCATE 76,22:PRINT C DLL 
HR$ (155); :LOCATE 4,5:PRINT CHR$(159) ; :LOCATE 13,5:PRINT 
CHR$(159) ; :LOCATE 4,9:PRINT CHR$(159) ; :LOCATE 13,9:PRI 

NT CHR$(159); :LOCATE 13,12:PRINT CHR$(159) ; :LOCATE 4,15 
:PRINT CHR$(159) ; 
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2445 LOCATE 13,15:PRINT CHR$(159) ; :LOCATE 13,17:PRINT C )EH 
HR$ (159) ; :LOCATE 13,28:PRINT CHR$(159) ; :LOCATE 26,9:PRI] 

NT CHR$(159) ; :LOCATE 26,12:PRINT CHR$(159) ; :LOCATE 26,1 
5:PRINT CHR$(159) ; :LOCATE 26,17:PRINT CHR$(159) ; :LOCATE 
26,29:PRINT CHR$(159); 

2458 LOCATE 26,22:PRINT CHR$(159) ; :LOCATE 28,5:PRINT CH DYF 
R#(159) ; :LOCATE 31,5:PRINT CHR#(159) ; :LOCATE 34,5:PRINT 
CHR$ (159) ; :LOCATE 37,5:PRINT CHR$(159) ; :LOCATE 49,5:PR 

INT CHR$(159) ; :LOCATE 43,5:PRINT CHR$ (159) ; :LOCATE 46,5 
PRINT CHR$(159) ; :LOCATE 49,5 

2468 PRINT CHR$(159) ; :LOCATE 52,5:PRINT CHR$(159) ; :LOCA D YB 
TE 56,5:PRINT CHR$(159) ; :LOCATE 68,5:PRINT CHR$(159) ; :L 
OCATE 64,5:PRINT CHR$(159) ; :LOCATE 68,5:PRINT CHR$(159) 
sLOCATE 72,5:PRINT CHR$(159) ; :LOCATE 76,5:PRINT CHR$(1 
59); 

2479 LOCATE 28,9:PRINT CHR$(159) ; :LOCATE 31,9:PRINT CHR 
#(159) ; :LOCATE 34,9:PRINT CHR$(159) ; :LOCATE 37,9:PRINT 
CHR$(159) ; :LOCATE 48,9:PRINT CHR$(159) ; :LOCATE 43,9:PRI 
NT CHR$ (159) ; :LOCATE 46,9:PRINT CHR$(159) ; :LOCATE 49,9: 
PRINT CHR$(159) ; :LOCATE 52,9 

2889 PRINT CHR$(159) ; :LOCATE 56,9:PRINT CHR$(159) ; :LOCA 
TE 68,9:PRINT CHR$(159) ; :LOCATE 64,9:PRINT CHR$(159) ; :L 
OCATE 68,9:PRINT CHR$(159) ; :LOCATE 72,9:PRINT CHR$(159) 
; :LOCATE 76,9:PRINT CHR$(159) ; :LOCATE 28,12:PRINT CHR$( 
159); :LOCATE 31,12:PRINT CHR$(159) 

2499 LOCATE 34,12:PRINT CHR$(159) ; :LOCATE 37,12:PRINT C 
HR$ (159) ; :LOCATE 49,12:PRINT CHR$(159) ; :LOCATE 43,12:PR 
INT CHR$(159) ; :LOCATE 46,12:PRINT CHR$(159); :LOCATE 49, 
12:PRINT CHR$(159) ; :LOCATE 52, 12:PRINT CHR$(159) ; :LOCAT 
E 56,12:PRINT CHR$(159); 

2589 LOCATE 69,12:PRINT CHR$(159) ; :LOCATE 64,12:PRINT C >HB 
HR$ (159) ; :LOCATE 68,12:PRINT CHR$(159) ; :LOCATE 72, 12:PR 

INT CHR$(159) ; :LOCATE 76,12:PRINT CHR$ (159) ; :LOCATE 28, 
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15:PRINT CHR$(159) ;:LOCATE 34,15:PRINT CHR$(159) ; :LOCAT 

E 34,15:PRINT CHR$(159) ; 

2519 LOCATE 37,15:PRINT CHR$(159) ; :LOCATE 48, 15:PRINT C DHN 

HR$ (159); :LOCATE 43,15:PRINT CHR$(159) ; :LOCATE 46, 15:PR 

INT CHR$(159); :LOCATE 49,15:PRINT CHR$(159) ; :LOCATE 52, 
15:PRINT CHR$(159) ; :LOCATE 56, 15:PRINT CHR$ (159) ; :LOCAT 

E 68,15:PRINT CHR$(159) ; 

2528 LOCATE 64,15:PRINT CHR$(159) ;:LOCATE 68, 15:PRINT C >HH 

HR$ (159) ; :LOCATE 72,15:PRINT CHR$(159) ; :LOCATE 76, 15:PR 

INT CHR$(159) ; :LOCATE 28,17:PRINT CHR$(159); :LOCATE 31, 
17:PRINT CHR$(159) ; :LOCATE 34,17:PRINT CHR$ (159) ; : LOCAT 

E 37,17:PRINT CHR$(159); 

2538 LOCATE 49,17:PRINT CHR$(159) ;:LOCATE 43, 17:PRINT C DHH 

HR$ (159) ; :LOCATE 46,17:PRINT CHR$(159) ; :LOCATE 49,17:PR 

INT CHR$(159) ; :LOCATE 52,17:PRINT CHR$(159) ; :LOCATE 56, 
17:PRINT CHR$(159) ; :LOCATE 68, 17:PRINT CHR$ (159) ; : LOCAT 

E 64,17:PRINT CHR$(159); 

2549 LOCATE 68,17:PRINT CHR$(159) ;:LOCATE 72,17:PRINT C HE 

HR$ (159) ;:LOCATE 76,17:PRINT CHR$(159) ; :LOCATE 28,29:PR 

INT CHR$(159) ; :LOCATE 31,28:PRINT CHR$(159) ; :LOCATE 34, 

28:PRINT CHR$(159) ; :LOCATE 37,28:PRINT CHR$(159) ; :LOCAT 

E 49,28:PRINT CHR$(159) ; 

2558 LOCATE 43,29:PRINT CHR$(159) ; :LOCATE 46, 2B:PRINT C DHU 

HR$ (159); :LOCATE 49,28:PRINT CHR$(159); :LOCATE 52,28:PR 

INT CHR$(159); :LOCATE 56,2B:PRINT CHR$(159) ; :LOCATE 68, 

28:PRINT CHR$(159) ; :LOCATE 64,28:PRINT CHR$ (159) ; :LOCAT 

E 68,29:PRINT CHR$(159); 

2568 LOCATE 72,28:PRINT CHR$(159) ; :LOCATE 76,28:PRINT C )LG 

HR$ (159) ; 

2578 LOCATE 2,2:PRINT"L*:LOCATE 7,2:PRINT'LIGNE":LOCATE PB 
18,2:PRINT"VOUS":LOCATE 27,2:PRINT"NOMBRE DE FOIS OÙ V 

OUS GAGNEZ POUR CHACUNE DES MISES." 

2589 LOCATE 2,3:PRINT"1":LOCATE 5,3:PRINT"PERDANTE":LOC >XR 


No EQUIPE 1 EQUIPE à LOTO 45 | 
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ATE 17,3:PRINT"GAGNEZ":LOCATE 2, 4:PRINT"G":LOCATE 5,4:P 
RINT"BULLETIN":LOCATE 18,4:PRINT POUR" :LOCATE 27, 4:PRIN 
T'S":LOCATE 29,4:PRINT"18":LOCATE 32, 4:PRINT"15":LOCATE 
35, 4:PRINT"28" 
2598 LOCATE 38,4:PRINT"38":LOCATE 41,4:PRINT"48":LOCATE DVF 
44, 4:PRINT"45":LOCATE 47,4:PRINT"68":LOCATE 58,4:PRINT 
"O8" :LOCATE 53,4:PRINT"128":LOCATE 57, 4:PRINT"135":LOCA 
TE 61,4:PRINT"168":LOCATE 65,4:PRINT"188":LOCATE 69,4:P 
RINT"328":LOCATE 73, 4:PRINT"368" 
2688 LOCATE 77,4:PRINT"548":LOCATE 14,6:PRINT"13 RESULT HG 
ATS":LOCATE 27,6:PRINT"{":LOCATE 39,6:PRINT"1":LOCATE 3 
3,6:PRINT"1":LOCATE 36,6:PRINT"1":LOCATE 39,6:PRINT"1": 
LOCATE 42,6:PRINT"1":LOCATE 45,6:PRINT"1":LOCATE 48,6:P 
RINT"1":LOCATE 51,6:PRINT"1" 
2619 LOCATE 54,6:PRINT"1":LOCATE 58,6:PRINT"1":LOCATE 6 TP 
2,6:PRINT"1":LOCATE 66,6:PRINT"1":LOCATE 79,6:PRINT"1": 
LOCATE 74,6:PRINT"1":LOCATE 78,6:PRINT"{":LOCATE 2,7:PR 
INT"13":LOCATE 6, 7:PRINT"AUCUNE" :LOCATE 14,7:PRINT"12 R 
ESULTATS":LOCATE 27,7:PRINT"S" 
2629 LOCATE 39,7:PRINT"1":LOCATE 33,7:PRINT"2":LOCATE 3 DRV 
6,7:PRINT"2":LOCATE 39, 7:PRINT"3":LOCATE 42, 7:PRINT"3": 
LOCATE 45,7:PRINT"4":LOCATE 48, 7:PRINT"4":LOCATE 51,7:P 
RINT"4":LOCATE 54,7:PRINT'5":LOCATE 58, 7:PRINT"6":LOCAT 
E 62, 7:PRINT"5" 
2638 LOCATE 66,7:PRINT"6":LOCATE 78,7:PRINT"6":LOCATE 7 DDA 
4, 7:PRINT"7":LOCATE 78, 7:PRINT"8":LOCATE 14,8:PRINT"11 
RESULTATS" :LOCATE 27,B:PRINT"8":LOCATE 38,8:PRINT"9":LO 
CATE 33,8:PRINT"S":LOCATE 36,8:PRINT"1":LOCATE 39,8:PRI 
NT"2":LOCATE 42,8:PRINT"3" 
2648 LOCATE 45,8:PRINT"4":LOCATE 48,8:PRINT"5":LOCATE 5 
1,8:PRINT"6":LOCATE 54,8:PRINT"9":LOCATE 57,8:PRINT"12" 
:LOCATE 61,8:PRINT"19":LOCATE 65,8:PRINT"13":LOCATE 69, 
8:PRINT"15":LOCATE 73,8:PRINT"19":LOCATE 77,B8:PRINT"25" 
tLOCATE 2,12:PRINT"12" 
2658 LOCATE 5,18:PRINT"1 LIGNE":LOCATE 14, 18:PRINT"12 R DYP 
ESULTATS":LOCATE 27, 18:PRINT"1":LOCATE 38, 19:PRINT"1":L 
OCATE 33,18:PRINT"1":LOCATE 36, 18:PRINT"1":LOCATE 39, 18 
{PRINT"1":LOCATE 42, 18:PRINT"1":LOCATE 45, 18:PRINT"{":L 
OCATE 48,18:PRINT"1":LOCATE 51,18 
2668 PRINT"1":LOCATE 54,19:PRINT"1":LOCATE 58, 19:PRINT" NE 
1":LOCATE 62, 1#:PRINT"1":LOCATE 66, 18:PRINT"1":LOCATE 7 
9,18:PRINT"1":LOCATE 74, 18:PRINT"1":LOCATE 78, 18:PRINT" 
1':LOCATE 5,11:PRINT"1 CROIX":LOCATE 14,11:PRINT"11 RES 
ULTATS":LOCATE 27,11:PRINT"8" 
2678 LOCATE 39,11:PRINT"1":LOCATE 33, 11:PRINT"2":LOCATE ZA 
36,11:PRINT"2":LOCATE 39, {1:PRINT"3":LOCATE 42,11:PRIN 
T"3":LOCATE 45,11:PRINT"4":LOCATE 48, 11:PRINT"4":LOCATE 
51,11:PRINT"4":LOCATE 54, 11:PRINT"5":LOCATE 58,11:PRIN 
T'6":LOCATE 62, 11:PRINT"5" 
2689 LOCATE 66,11:PRINT"6":LOCATE 79,11:PRINT"6":LOCATE )ZU 
74,11:PRINT"7":LOCATE 78, 11:PRINT®8":LOCATE 5, 13:PRINT 
"1 LIGNE":LOCATE 14,13:PRINT"12 RESULTATS" :LOCATE 27,13 
:PRINT"#":LOCATE 38, 13:PRINT"2":LOCATE 33, 13:PRINT"8":L 
OCATE 36,13:PRINT"2":LOCATE 39,13 
2699 PRINT"2":LOCATE 42, 13:PRINT"2":LOCATE 45,13:PRINT" )JL 
S":LOCATE 48, 13:PRINT"2":LOCATE 51,13:PRINT"2":LOCATE 5 
4,13:PRINT"2":LOCATE 58, 13:PRINT"":LOCATE 62,13:PRINT" 
2":LOCATE 66, 13:PRINT"2":LOCATE 78, 13:PRINT"2":LOCATE 7 
4,13:PRINT"2" 


v 


NE 





2788 LOCATE 78,13:PRINT"2*:LOCATE 5,14:PRINT"2 CROIX":L )ZD 

OCATE 14,14:PRINT"11 RESULTATS" :LOCATE 27, 14: PRINT" #":L 

OCATE 38,14:PRINT"B":LOCATE 33,14:PRINT"S":LOCATE 36, 14 

:PRINT"2":LOCATE 39, 14:PRINT"4":LOCATE 42, 14:PRINT"4":L 

OCATE 45,14:PRINT"S":LOCATE 48,14 

2718 PRINT"6":LOCATE 51, 14:PRINT"6":LOCATE 54,14:PRINT" )EG 

8":LOCATE 58, 14:PRINT"S":LOCATE 62, 14:PRINT"8":LOCATE 6 

5,14:PRINT"18":LOCATE 69, 14:PRINT"18":LOCATE 73, 14:PRIN 

T12":LOCATE 77, 14:PRINT"14":LOCATE 5,16:PRINT"2 LIG 1C 

“:LOCATE 14,16:PRINT"11 RESULTATS" 

2729 LOCATE 27,16:PRINT"1":LOCATE 38, 16:PRINT"1":LOCATE DAT 
33,16:PRINT"1":LOCATE 36, 16:PRINT"1":LOCATE 39, 16:PRIN 

T'A":LOCATE 42,16:PRINT"{":LOCATE 45, 16:PRINT"1":LOCATE 
48,16:PRINT"1":LOCATE 51, 16:PRINT"1":LOCATE 54,16: PRIN 

T"1":LOCATE 58,16:PRINT"1" 

2738 LOCATE 62,16:PRINT"1":LOCATE 66, 16:PRINT"1":LOCATE )GZ 
78,16:PRINT"{":LOCATE 74,16:PRINT"1":LOCATE 78,16:PRIN 

T"1":LOCATE 2, 17:PRINT"11":LOCATE 2,29:PRINT"11":LOCATE 
5,18:PRINT"1 LIG 1C*:LOCATE 5,19:PRINT"1 LIG 2C":LOCAT 

E 14,18:PRINT"11 RESULTATS" 

2749 LOCATE 14,19:PRINT"11 RESULTATS" :LOCATE 27, 18:PRIN DGV 

T"H":LOCATE 38, 18:PRINT"2":LOCATE 33, 18:PRINT"":LOCATE 
36, 18:PRINT"2":LOCATE 39, 18:PRINT"2":LOCATE 42, 18:PRIN 

T"2*:LOCATE 45, 18:PRINT"S":LOCATE 48, 18:PRINT"2" :LOCATE 
51,18:PRINT"2":LOCATE 54,18 

275$ PRINT"2":LOCATE 58,18:PRINT"S":LOCATE 62, 18:PRINT" RP 

2":LOCATE 66, 18:PRINT"2":LOCATE 79, 18:PRINT"2":LOCATE 7 

4,18:PRINT"2":LOCATE 78, 18:PRINT"2":LOCATE 5,21:PRINT"2 
LIG 2C":LOCATE 14,21:PRINT"{1 RESULTATS" :LOCATE 27,21: 

PRINT"S":LOCATE 38,21:PRINT"g" 

2769 LOCATE 33,21:PRINT"8":LOCATE 36,21:PRINT"4":LOCATE AB 
39,21:PRINT"S":LOCATE 42,21:PRINT"4":LOCATE 45,21:PRIN 

T'#":LOCATE 48,21:PRINT"4":LOCATE 51,21 :PRINT"4" :LOCATE 
54,21:PRINT"4":LOCATE 58,21:PRINT"8":LOCATE 62,21:PRIN 

T'4":LOCATE 66,21: PRINT"4" 

2778 LOCATE 78,21:PRINT"4":LOCATE 74,21:PRINT"4":LOCATE )GG 
78,21:PRINT"4":LOCATE 27,23:PRINT"S] LE NUMERO PACTOLE 
INDIQUE SUR VOTRE RECU EST CELUI":LOCATE 27,24:PRINT"Q 

UT CORRESPOND AU NUMERO DU TIRAGE VOS GAINS SONT X2." 

2789 LOCATE 2,23:PRINT"- { - SORTIE IMPRIMANTE":LOCATE >YG 

2,24:PRINT"- 2 - RETOUR AU MENU" 


2798 S$=INKEYS ZA 
2888 1F S$="{" THEN GOSUB 4198:G0T0 2838 )FY 
2819 IF S$="2" THEN GOSUB 4198:G0T0 249 DEF 
2628 GOTO 2799 NH 
. 2638 CALL &ABGC:FOR 7-1 TO 258B:NEXT T:GOTO 248 )ND 
2848 ? )YG 
2858 " affichage de la grille du loto sportif en 1 N 2 DYH 
2868 )YJ 
2678 CLS:NODE 2:PEN 1:PAPER #:BORDER 18 GG 


2889 LOCATE 6,4:PRINT"EQUIPE 1":LOCATE 19,4:PRINT"EQUIP >HQ 
E 2" 

2899 LOCATE 42,4:PRINT"No":LOCATE 3,4:PRINT"No" TD 
2988 LOCATE 45,4:PRINT"EQUIPE 1":LOCATE 58,4:PRINT"EQUI )JX 
PE 2" 

2918 PLOT 8,8,1:DRAV 8,48#:PLOT 8,9:DRAU 636,8:PLOT 8,3 >RH 
SS:DRAN 636, 399 

2929 PLOT 636,399:DRAN 636,8:PLOT 318,399:DRAU 318,58:P >VD 
LOT #,3:DRAW 636,3 
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2935 PLOT 638,489:DRAN 638,8 
2948 PLOT 648,498:DRAN 648,8 VA 
2959 PLOT 8,4:DRAN 636,4:PLOT #,5:DRAU 636,5:PLOT 9,6:D >WH 
RAN 636,6:PLOT 8,7 

2968 DRAV 636,7:PLOT 8,8:DRAW 636,6:PLOT 8,9:DRAN 636,9 YU 
2978 PLOT 8, 18:DRAN 636,19:PLOT 8,11:DRAV 636,11:PLOT 8 >XU 
,13:DRAN 636, 13:PLOT #,15:DRAN 636,15 


WP 


2988 PLOT #,17:DRAN 636,17:PLOT 9,19:DRAV 636, 19:PLOT # RC 


,21:DRAN 636,21 

2999 PLOT 9,23:DRAN 636,23:PLOT 8,25:DRAN 636,25:PLOT # DRD 
,27:DRAN 636,27 

3885 PLOT 8,29:DRAN 636,29 TH 
3919 PLOT #,31:DRAN 636,31:PLOT #,33:DRAN 636, 33:PLOT 8 DRE 
,35:DRAN 636,35 

3929 PLOT 9,37:DRAN 636,37:PLOT 8,39:DRAN 636,39:PLOT 5 )RA 
»41:DRAN 636, 41 

3839 PLOT 8,43:DRAN 636, 43:PLOT 8,45:DRAN 636, 45:PLOT # DRB 
,47:DRAN 636,47 

3848 PLOT 8,49:DRAN 636, 49:PLOT B,51:DRAN 636,51 )PC 
3959 PLOT #,53:DRAW 636,53:PLOT 9,55:DRAW 636,55:PLOT 9 DRN 
,88:DRAN 316,88 

3869 PLOT 8,12B:DRAV 316, 128:PLOT #,152:DRAW 636,152:PL )ZH 
OT #,184:DRAW 636, 184 

3878 PLOT 9,216:DRAV 636,216:PLOT #,248:DRAW 636, 248:PL )2J 
OT 9,288:DRAW 636, 289 

3868 PLOT 8,312:DRAW 636, 312 

3998 PLOT 296,312:DRAW 296,58:PLOT 272,312:DRAW 272,58: 
PLOT 248,312:DRAW 248,58 

3199 PLOT 635,399:DRAN 635,58:PLOT 634,399:DRAW 634,58 
3118 PLOT 633,399: DRAN 635,59:PLOT 632,399:DRAN 632,58 )XK 
3129 PLOT 698,312:DRAV 698, 152 XL 
93138 PLOT 564,312:DRAN 584,152:PLOT 558,312:DRAN 558,15 )ZQ 
2 

3148 PLOT 1, 48#:DRAU 1,58:PLOT 2, 49B:DRAV 2,58:PLOT 3,4 DMV 
S8:DRAW 3,59 

3158 PLOT 4,488:DRAV 4,58:PLOT #,396:DRAW 636,396:PLOT WA 
#,394:DRAW 636, 394 

3169 PLOT 8,392:DRAV 636, 392:PLOT ÿ,398:DRAN 636,398:PL >ZK 
OT 9,388:DRAV 636,388 

3179 PLOT 8,368:DRAV 636, 368:PLOT 9,362:DRAN 636,362:PL )ZR 
OT 9,358:DRAW 636,358 

3189 PLOT 8,356:DRAU 636, 356:PLOT #,364:DRAN 636, 364:PL >ZQ 
OT 9,332:DRAN 636, 332 

3198 PLOT #,33#:DRAV 636, 338:PLOT #,328:DRAN 636, 328:PL >ZF 
OT 9,326:DRAU 636,326 

3288 PLOT #,324:DRAN 636,324:PLOT 9, 322 FH 
3218 DRAW 636,322:PLOT #,328:DRAW 636,328:PLOT 9,318:DR DJE 
AN 636, 318 

3229 PLOT 8,316:DRAV 636,316:PLOT #,314:DRAW 636,314  DUX 
3238 LOCATE 71,4:PRINT" LOTO ";nun$ )DB 
3248 FOR n°1 TO 8:FOR 1=n TO n:LOCATE 2,(n+1)+5:PRINT n DLE 
:LOCATE 6, (n+1)+5:PRINT"........... M:LOCATE 19, (n+1)+5: 
PRINT"......,.... ":NEXT:NEXT 

3259 FOR n=9 TO 13:FOR 1=n TO n:LOCATE 41, (n+1)-11:PRIN )YQ 
T n:LOCATE 45, (ntl)-11:PRINT"......,,.., “":LOCATE 58, (nt 
D-1L:PRINT".....,..... ":NEXT:NEIT 

3269 FOR n°1 TO 16 STEP 2:LOCATE 33,a+6:PRINT "1*:LOCAT )TG 
E 36,m16:PRINT "N":LOCATE 39,n+6:PRINT "2":NEXT a 

3275 FOR n°1 TO 9 STEP 2:LOCATE 72,8+6:PRINT “1":LOCATE )QX 


VB 
)DF 


»XQ 
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75,8+6:PRINT "N":LOCATE 78,n+6:PRINT"2":NEXT m 
3289 FOR n=1 TO 1:LOCATE 2,+7:PRINT n:LOCATE 6,+7:PRINT )GQ 
loc$(n):LOCATE 19,+7:PRINT vis$(n):1F prono$(n)=loc$(n 
} THEN LOCATE 33,7:PRINT"X" 
3298 1F NOT(prono$(n)=loc$(n) OR prono$(n)}=vis$(n)) THE )EG 
N LOCATE 36,7:PRINT"X" 
3389 1F prono$(n)=vis$(n) THEN LOCATE 39, 7:PRINT"X" DH 
3318 NEXT XKJ 
3329 FOR n=2 TO 2:LOCATE 2,+9:PRINT n:LOCATE 6, +9:PRINT DYC 
loc$(n):LOCATE 19,+9:PRINT vis$(n) 
3339 IF prono$(n)=loc$(n) THEN LOCATE 33,9:PRINT"X" )VY 
3348 IF NOT(prono$(n)=loc$(n) OR prono$(n)=vis$(n)) THE )EE 
N LOCATE 36,9:PRINT"X" 
3358 1F prono$(n)=vis$(n) THEN LOCATE 39,9:PRINT"X" JV 
3369 NEXT )LD 
3378 FOR n=3 TO 3:LOCATE 2,+{1:PRINT n:LOCATE 6,+11:PRI DBH 
NT loc$(n):LOCATE 19,+11:PRINT vis$(n) 
3388 1F prono$(n)=ioc$(n) THEN LOCATE 33,11:PRINT"X" DU 
3398 1F NOT(prono$(n)=loc$(n) OR prono$(n)=vis$(n)} THE FF 
N LOCATE 36,11:PRINT"X" 
3489 IF prono$(n)=vist(n) THEN LOCATE 39, 11:PRINT"X" )XH 
3419 NEXT >KK 
3428 FOR n=4 TO 4:LOCATE 2,+13:PRINT n:LOCATE 6,+13:PRI >CD 
NT loc$(n):LOCATE 19,+13:PRINT vis$(n) 
3438 IF prono$(n)=loc$(n) THEN LOCATE 33,13:PRINT"X" WU 
3448 1F NOT(prono$(n)=loc$(n) OR prono$(n)=vis$(n)) THE )FD 
N LOCATE 36,13:PRINT"X" 
3458 1F prono$(n)=vis$(n) THEN LOCATE 39,13:PRINT"X"  )XQ 
3468 NEXT )LE 
3478 FOR n=5 TO 5S:LOCATE 2,+15:PRINT n:LOCATE 6,+15:PRI )CT 
NT loc$(n):LOCATE 19,+15:PRINT vis$(n) 
3488 1F prono$(n)=loc$(n) THEN LOCATE 33,15:PRINT"X" DUB 
3498 IF NOT(prono$(n)=loc$(n) OR prono$(n)=vis$(n)) THE )FL 
N LOCATE 36,15:PRINT"X" 
3588 IF prono$(n)=vis$(n) THEN LOCATE 39,15:PRINT"X"  )XN 
3519 NEXT )LA 
3529 FOR n=6 TO 6:LOCATE 2,+17:PRINT n:LOCATE 6,+17:PRI )CX 
NT loc$(n):LOCATE 19,+17:PRINT vis$(n) 
3539 IF prono$(n)=loc$(n) THEN LOCATE 33,17:PRINT"X"  )DWZ 
3549 1F NOT(prono$(n)=LOC$(N) OR prono$(n)=VIS$(N)) THE )FJ 
N LOCATE 36,17:PRINT"X" 
3558 1F pronot(n)=vis$(n) THEN LOCATE 39,17:PRINT'X"  )X4 
3569 NEXT )LF 
3578 FOR n=7 TO 7:LOCATE 2,+19:PRINT n:LOCATE 6,+19:PRI DCL 
NT loc$(n):LOCATE 19,+19:PRINT vis$(n) 
3588 IF pronot(n)=loc$(n) THEN LOCATE 33,19:PRINT'X"  DWG 
3598 IF NOT(prono$(n)=LOC$(N) OR prono$(n)=VIS$CN)) THE >FR 
N LOCATE 36, 19:PRINT"X" 
3688 IF prono$(n)=vis$(n) THEN LOCATE 39,19:PRINT"X"  >XU 
3619 NEXT )LB 
3629 FOR n=8 TO 8:LOCATE 2,+21:PRINT n:LOCATE 6,+21:PRI )CL 
NT loc$(n):LOCATE 19,+21:PRINT vis$(n) 
3638 1F prono$(n)=loc$(n) THEN LOCATE 33,21:PRINT"X"  DWV 
3648 1F NOT(prono$(n}=loc$(n) OR prono$(n)=vis$(n)) THE DFE 
N LOCATE 36,21:PRINT"X" 
3659 1F prono$(n)=vis$(n) THEN LOCATE 39,21:PRINT"X"  )DXR 
3668 NEXT )LG 
3679 FOR n=9 TO 9:LOCATE 41,+7:PRINT n:LOCATE 45,+7:PRI DAG 
NT loct(n)}:LOCATE 58,+7:PRINT vis$(n) 
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3689 IF pronot(n)=loc$(n) THEN LOCATE 72,7:PRINT"X" VH 
3699 IF NOT(prono$(n)=loc$(n) OR prono$(n)=vis$(n)) THE )EP 
N LOCATE 75,7:PRINT"X" 

3799 1F pronot(n)=vis$(n) THEN LOCATE 78,7:PRINT"X" JW 
3719 NEXT )LC 
3729 FOR n=18 TO 18:LOCATE 41,+9:PRINT n:LOCATE 45,+9:P )DH 
RINT loc$(n):LOCATE 58,+9:PRINT vis$(n) 

3738 IF prono$(n)=loc$(n) THEN LOCATE 72,9:PRINT"X" VF 
3748 IF NOT(prono$(n)=loc$(n) OR prono$(n)=vis$(n)) THE )EN 
N LOCATE 75,9:PRINT"X" 

3758 1F prono$(n)=vis$(n) THEN LOCATE 78,9:PRINT"X" JC 
3768 NEXT >LH 
3779 FOR n=11 TO 11:LOCATE 41,+11:PRINT n:LOCATE 45,+11 DHT 
PRINT loc$(n):LOCATE 58,+11:PRINT vis$(n) 

3788 1F prono$(n)=loc$(n) THEN LOCATE 72,11:PRINT'X" )WD 
3799 IF NOT(prono$(n)=loc$(n) OR prono$(n)=vis$(n)) THE FN 
N LOCATE 75,11:PRINT"X" 

3888 IF prono$(n)=vis$(n) THEN LOCATE 78,11:PRINT"A"  >XQ 
3819 NEXT )LD 
3828 FOR n=12 TO 12:LOCATE 41,+13:PRINT n:LOCATE 45,+13 DHX 
PRINT loc$(n):LOCATE 58,+13:PRINT vis$(n) 

3838 IF prono$(n)=loc$(n) THEN LOCATE 72,13:PRINT"X"  )WB 
3849 IF NOT(prono$(n)=loc$(n) OR prono$(n)=vis$(n)) THE DFL 
N LOCATE 75,13:PRINT"X" 

3859 IF prono$(n)=vis$(n) THEN LOCATE 78,13:PRINT"X"  )XY 
3868 NEXT )LJ 
3878 FOR n=13 TO 13:LOCATE 41,+15:PRINT n:LOCATE 45,+15 DHL 
PRINT loc$(n):LOCATE 58,+15:PRINT vis$(n) 

3888 1F prono$(n)=loc$(n) THEN LOCATE 72,15:PRINT"X"  )XA 
3898 1F NOT(prono$(n)=loc$(n) OR prono$(n)=vis$(n)) THE )FU 
N LOCATE 75,15:PRINT"X" 

3988 IF prono$(n)=vis$(n) THEN LOCATE 78,15:PRINT"X" 
3919 NEXT 
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3928 GOTO 4758 )NH 
3938 )YH 
3949 ? ausique 1 Del 
3959 JYK 


3968 RESTORE 3978:FOR note=1 TO 34:READ a,b,c, d:SOUND 1 >XH 
,4,b:SOUND 2,c,d:NEXT note:RETURN 

3978 DATA 196,28, 426, 28,88, 15,319,15,9,5,9,5,89,29,319, GT 
28, 71,28, 426, 28, 63,29, 426,28 

3988 DATA 88,15,319,15,9,5,8,5,88, 25,319, 28,84, 29, 426,2 DNV 
#,196,28, 426,29 

3998 DATA 88,15,319,15,9,5,8,5, 88, 28,319, 29, 71,29, 426,2 DMZ 
5,63, 28, 426, 28 

4899 DATA 85,49, 319,48, 84,28, 426, 29, 196, 28, 426, 29 )NE 
4919 DATA 88,15,319,15,9,5,8,5,68, 29,319, 28,71,28,319,2 DMJ 
9,63, 29, 319, 28 

4929 DATA 66,28, 478,28,63,28, 476, 29, 71,29, 476,28,69,29, )CY 
478,28 

4935 DATA 84,29, 426,28, 186, 29, 426, 28,95, 28, 426, 29, 84,28 DV 





, 426, 28 

4848 DATA 89,88, 319,68,9,9,8,8 DB 
4958 )YB 
4868  ausique 2 )YC 
4979 )YD 
4889 RESTORE 4999:FOR note=1 TO 13:READ a,b,c,d:SOUND 1 >XR 
,a,b:SOUND 2,c,d:NEXT note:RETURN 

4998 DATA 63, 89,319, 88 )PE 
4188 DATA 71,28,319,29, 89, 29,319,28,63, 28,319, 29, 71,28, )CY 
319,29 

4119 DATA 88,49, 319, 48, 48, 49, 319, 49 DAY 
4128 DATA 47,28,478,28, 49,68, 478,68 )AQ 
4138 DATA 53, 89,319, 88 )PY 
4149 DATA 63,489,319, 48, 89,48, 319,48 )AG 
4158 DATA 71,88, 426,68 )PZ 
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4169 ? )YD 
4178 grille du loto en pourcentage des 13 aatchs )YE 
4188 YF 
4198 PRINT CHR$(7) :RETURN VX 
4299 CLS:MODE 2:PEN 1:BORDER 19:G0T0 4628 HZ 


4219 LOCATE 6,4:PRINT'EQUIPE 1":LOCATE 18,4:PRINT"EQUIP DHC 
E 2° 

4229 LOCATE 43,4:PRINT"No":LOCATE 3, 4:PRINT"No" TT 
4239 LOCATE 46,4:PRINT'EQUIPE 1":LOCATE 58,4:PRINT"EQUI )J4 
PE 2" 

4248 PLOT 9,8,1:DRAV 8,489:PLOT 8,9:DRAW 636,9:PLOT 9,3 DRF 
99:DRAW 636, 399 

4258 PLOT 636,399:DRAN 636,8:PLOT 325,399:DRAW 325,58:P DVX 
LOT #,3:DRAW 636,3 

4268 PLOT 638,489:DRAN 638,8 >VH 
4219 PLOT 649, 499:DRAN 649,8 NY 
4289 PLOT 8,4:DRAV 636,4:PLOT 8,5:DRAW 636,5:PLOT 9,6:D DWF 
RAW 636,6:PLOT $,7 

4299 DRAV 636,7:PLOT 8,8:DRAU 636,8:PLOT 8,9:DRAU 636,9 DYU 


4388 PLOT #,19:DRAW 636,19:PLOT 9,11:DRAW 636, 11:PLOT 8 >XG 
,13:DRAN 636,13:PLOT 8,15:DRAN 636,15 

4319 PLOT 9,17:DRAW 636,17:PLOT 9,19:DRAW 636, 19:PLOT 9 >RQ 
,21:DRAN 636,21 

4329 PLOT 8,23:DRAN 636,23:PLOT 9,25:DRAN 636,25:PLOT 9 RR 
,27:DRAN 636,27 

4339 PLOT 8,29:DRAN 636,29 >UG 
4348 PLOT 9,31:DRAN 636,31:PLOT 9,33:DRAW 636, 33:PLOT & RH 
, 35 :DRAN 636,35 

4358 PLOT 9,37:DRAN 636,37:PLOT 8,39:DRAU 636, 39:PLOT 5 >RH 
»41:DRAN 636,41 

4369 PLOT 8,43:DRAN 636,43:PLOT 8,45:DRAW 636, 45:PLOT 9 DRJ 
,47:DRAN 636,47 

4378 PLOT 8,49:DRAN 636, 49:PLOT 8,51:DRAN 636,51 )QB 
4389 PLOT #,53:DRAW 636,53:PLOT 9,55:DRAV 636,55:PLOT 8 RU 
,68:DRAN 323,88 

4398 PLOT 8,129:DRAW 323, 128:PLOT #,152:DRAN 638,152:PL )ZQ 
OT 8,184:DRAW 636, 184 

4499 PLOT #,216:DRAW 636,216:PLOT 9,248:DRAN 636,248:PL 26 
OT 9,288:DRA 636, 289 

4418 PLOT 8,312:DRAV 636,312 JVZ 
4429 PLOT 292,312:DRAV 292,58:PLOT 269,312:DRAN 268,58: >DJ 
PLOT 228,312:DRAW 228,58 

4439 PLOT 635,399:DRAN 635,59:PLOT 634,399:DRAU 634,58 >XY 
4449 PLOT 633,399:DRAN 635,58:PLOT 632,399:DRAN 632,58 )XT 


4459 PLOT 684,312:DRAN 664,152 XX 
4469 PLOT 577,312:DRAN 577,152 XF 
4479 PLOT 548,312:DRAN 548, 152 >XC 


4489 PLOT 1,498:DRAN 1,58:PLOT 2, 498:DRAN 2,59:PLOT 3,4 DHD 
#8:DRA4 3,58 

4498 PLOT 4,488:DRAN 4,58:PLOT #,396:DRAV 636,396:PLOT )WJ 
9,394:DRAN 636,394 

4589 PLOT 8,392:DRAV 636, 392:PLOT 9,398 :DRAN 636, 398:PL )2J 
OT 9,388:DRAV 636, 388 

4518 PLOT 8,36#:DRAV 636, 368:PLOT 9,362:DRAW 636,362:PL 20 
OT 9,358:DRAU 636, 358 

4528 PLOT 8,356:DRAW 636,356:PLOT #,364:DRAW 636, 364:PL >ZP 
OT #,332:DRAN 636, 332 

4538 PLOT 4,338:DRAV 636,338:PLOT 9,328:DRAN 636,328:PL ZE 








OT 8,326:DRAW 636, 326 

4548 PLOT 8,324:DRAW 636,324:PLOT #,322 )FR 
4559 DRAW 636,322:PLOT 9,328:DRAV 636,328:PLOT 9,318:DR KE 
AN 636,318 

4569 PLOT 9,316:DRAW 636,316:PLOT 9,314:DRAW 636,314 UN 


4578 LOCATE 71,4:PRINT" LOTO ";nun$ )EB 
4588 FOR n=1 T0 8:FOR 1=n TO n:LOCATE 2, (n+1)+5:PRINT n LH 
:LOCATE 6, (n+1)+5:PRINT".....,,.... ":LOCATE 18, (n+1)+5: 
PRINT"........... :NEXT:NEXT 

4599 FOR n=9 TO 13:FOR I=n TO n:LOCATE 42, (n+1)-11:PRIN )YB 
T n'LOCATE 46, (ntl)-11:PRINT"...,....... “":LOCATE 58, (nt 
D-11:PRINT".....,...., ":NEXT:NEXT 


4688 FOR n=1 TO 8:F0R 1=n TO n:LOCATE 2,(n+1)+5:PRINT n )QY 
:LOCATE 6,(n+1)+5:PRINT loc$(n):LOCATE 18, (n+1)+5:PRINT 
vis$(n):NEXT:NEXT 

4619 FOR n=9 TO 13:F0R 1=n TO n:LOCATE 42,(nt1)-11:PRIN DXV 
T n:LOCATE 46, (nt1)-11:PRINT loc$(n) :LOCATE 58, (n+1)-11 
{PRINT vis$(n):NEXT:NEXT:G0TO 4649 

4628 FOR n=1 TO 8:F0R 1=n TO n:LOCATE 38,(n+1)+5:PRINT DUX 
pi(n):LOCATE 34, (n+1)+5:PRINT p2(n):LOCATE 38, (n+1)+5:P 
RINT p3(n) :NEXT:NEXT 

4638 FOR n=9 TO 13:FOR 1=n TO n:LOCATE 78, (nt1)-11:PRIN DXG 

T pi(n):LOCATE 73,(nt1)-11:PRINT p2(n):LOCATE 76, (ntl)- 
11:PRINT p3ln):NEXT:NEXT:G0TO 4218 

4648 WINDOW#1,3,39,2,2:CLS#1:WINDOW#S, 43, 78,2,2:CLS#5:W KW 
INDON#6, 43, 78, 17,21:CLS#6 

4658 LOCATE#, 2, 1:PRINT#1, "GRILLE DU LOTO SPORTIF EN PO )VT 


URCENTAGE"; 
4668 LOCATE#5,6,2:PRINT#5, "LOTO SPORTIF DU : ";DATES  )Z2 
4678 LOCATER6, 13, 1:PRINTH6, "VOULEZ-VOUS"; MK 


4688 LOCATE#6,3,3:PRINT#6,"- 1 - SORTIE SUR IMPRIMANTE. DLZ 


LP 
... ; 


4699 LOCATE#6,3,5:PRINT#6,"- 2 - RETOURNER AU MENU .... KL 


LP 
ss... ; 


4789 Z$=INKEY$ )ZA 
4719 IF Z$="{" THEN GOSUB 4199:G0T0 4749 )FK 
4729 1F Z$="2" THEN GOSUB 4198:G0T0 258 )ER 
4739 GOTO 4798 NC 


4748 CLS#6:CALL RAB6C:FOR T=1 TO 258$:NEXT T:GO0TO 4648 )XB 
4759 WINDOW#1,3,39,2,2:CLS#1:WINDOWE2, 42, 78,2,2:CLS42:W >KH 
INDON#3, 42, 78, 17,21:CLS#3 


4768 AL 
4779 ‘ menu 2 )ZA 
4788 )ZB 


4799 LOCATE#,8, 1:PRINT#1, "GRILLE DU LOTO SPORTIF";  DZC 
4889 LOCATEN2,6,2:PRINT#2, "LOTO SPORTIF DU : ";DATES  ZN 
4819 LOCATE#3, 13, 1:PRINTH3, "VOULEZ-VOUS" ; )LH 
4829 LOCATE43,3,2:PRINT#3, "- 1 - PRONOSTIC MATCH DU JOU LT 
R...."; 


| 4839 LOCATE#3,3,3:PRINT#3,"- 2 - VOIR POSSIBILITE DE DO >MA 


UBLE."; 


| 4849 LOCATE#3,3, 4:PRINT#3,"- 3 - RETOURNER AU MENU .... KB 


", 
... ’ 


4858 LOCATE#3,3,5:PRINT#3,"- 4 - SORTIE SUR IMPRIMANTE. DLX 


4868 B$=INKEYS$ )XD 
4879 IF B$="1" THEN GOSUB 4198:G0T0 5898 )FQ 
4888 1F B$="2" THEN GOSUB 4198:G0T0 4958 )FX 
4898 IF B$="3" THEN GOSUB 419#:G0T0 258 )EA 





4989 1F B$="4" THEN GOSUB 4198:G0T0 5858 
4918 GOTO 4868 


4928 DYH 
4939 ” calcul des possibilitees de double DYJ 
4949 ? YK 


4958 CLS#3:LOCATES3, 11,3:PRINTE3, "UN INSTANT S.V.P.":NO DZN 
H19="LOTO-S. 1N2" 

4969 OPENIN "!"+NOH1$ )PZ 
4978 FOR N=1 TO 13 )LZ 
4988 INPUTH9, loct(N) : INPUT#9, visé (N) : INPUT#9, prono$(N): )WL 
INPUT#9, pi CN) : INPUT#9, p2CN) : INPUT#9, p3(N):IF EOF=1 THEN 


5998 

4999 NEXT N )XC 
5888 CLOSEIN )LF 
5818 FOR T=1 TO 3889:NEXT T:GO0TO 3288 )D4 
5828 >XK 
5838 * sortie sur iaprisante )YA 
5848 )B 
5859 CLS#3:CALL RABBC:FOR T=1 TO 2588:NEXT T:GOTO 4758 DND 


5868 

5878 * pronostic des trois satchs du jour 
5988 YF 
5998 CLS#3:CLS#2:LOCATE#3, 1, 1:PRINTH3, "No" :LOCATE#3, 1,2 DCR 
:PRINT#3, "--":LOCATE#3,9, 1:PRINT#3, "MATCH DU JOUR": LOCA 
TE#3,9, 2:PRINT#3,"------------- *:LOCATE#3,31, 1:PRINTH3, 
SCORE" :LOCATER3, 31, 2: PRINT#3, "----- d 

5198 LOCATE#2,6, 2: INPUT#2, "HATCH DU JOUR No 1 : ",N »YXT 
5119 CLS#2:PRINTH3, TAB(1) "1"; :PRINT#3, TAB(4) ;Loc$(n);:P JA 
RINTA3, TAB(17) ;VIS$(N); 

5128 IF prono$(n)=loc$(n) THEN PRINT#3,TAB(31)"3 À 1" WG 
5138 IF NOT(prono$(n)=loct(n) OR pronot(n)=VIS$(n)) THE DFT 
N PRINT#3,TAB(31)"1 À 1" 

5148 IF prono$(n)=VIS$(n) THEN PRINT#3, TAB(31)"1 À 2" )XN 
5158 CLS#2:LOCATE#2, 6,2: INPUT#2, "MATCH DU JOUR No 2 : * DEV 
,N 

5168 CLS#2:PRINT#3, TAB(1) "2"; :PRINTH3, TAB(4) ;Loc$(n);:P )JG 
RINT#3, TAB(17) ;VIS$CN) ; 

5178 IF prono$(n)=loc$(n) THEN PRINT3,TAB(31)"{ À 8" )XA 
5188 IF NOT(prono$(n)=loc$(n) OR prono$(n)=VIS$(n)) THE F4 
N PRINTH3,TAB(31)"8 À 9" 


5198 IF prono$(n)=VIS$(n) THEN PRINT#3,TAB(31)"9 À 1"  >XZ 


5288 CLS#2:LOCATE#2,6, 2: INPUT#2, "MATCH DU JOUR No 3 : * DER 
,N 

5219 CLS#2:PRINT#3, TAB(1) "3"; :PRINTH3, TAB(4) ;Loc$(n);:P >JD 
RINT#3,TAB(17) ;VIS$(N) ; 

5228 IF prono$(n)=loc$(n) THEN PRINT#3,TAB(31)"2 À g" 


NF 





5238 IF NOT(prono$(n)=loc$(n) OR pronot(n)=VIS$(n)) THE )FV 

N PRINTH3, TAB(31)"2 À 2" 

5248 IF prono$(n)=VIS$(n) THEN PRINTS3,TAB(31)"9 À 2" )X4 

5258 CLS#2:LOCATE#2, 4,2:PRINT2, "SORTIE SUR IMPRIMANTE DVP 
OUI - NON”; 


5268 J$=INKEYS )XG 
5278 IF J$="0" OR J$="o" THEN GOSUB 4198:G0T0 5388 > 
5289 IF J$="N" OR J$="n" THEN GOSUB 4199:G0T0 5328 )QN 
5298 GOTO 5268 )NG 


5388 CLS#2:LOCATE#2,6,2:PRINTE2, "LOTO SPORTIF DU : ";DA )GL 
TE$ 


5319 CALL &AB6C:FOR T=1 TO 25B8:NEXT T )DN 
5328 CLS#2:LOCATE#2,9,2:PRINT#2,*- 1 - RETOUR AU MENU" DAT 
5339 J$=INKEYS )XE 
5348 IF J$="1" THEN GOSUB 419#:GO0T0 258 )EI 
5358 GOTO 5338 NB 


5368 CLS:NODE 1:PEN 1:LOCATE 12,11:PRINT"SUR QUEL DRIVE >MB 
A OU B" 


5378 LOCATE 15,13:PRINT"- 1 - DRIVE 4" FE 
5389 LOCATE 15,15:PRINT"- 2 - DRIVE B" )FK 
5399 R$=INKEYS )YJ 
5499 IF R$="1" THEN GOSUB 3969:üA:G0T0 698 NE 
5418 IF R$="2" THEN GOSUB 3968:üB:G0TO 698 )JH 
5428 GOTO 5398 NF 


5439 CLS:HODE 1:PEN 1:LOCATE 12,11:PRINT"SUR QUEL DRIVE DMZ 
À OU B" 


5449 LOCATE 15,13:PRINT"- 1 - DRIVE A" )FC 
5459 LOCATE 15,15:PRINT"- 2 - DRIVE B" FH 
5469 R$=INKEYS )YG 
5479 IF R$="1" THEN GOSUB 4888:üA:G0TO 1918 )JA 
5489 IF R$="2" THEN GOSUB 4888:ùB:G0TO 191$ )JD 
5498 GOTO 5468 )PA 


5589 NODE 1:CLS:INK 9,9: INK 1,24: INK 1,26:INK 3,1:c=2:F ME 

OR i=-635 TO 1275 STEP 2:c=-2#(c=4)-3#(c=2)-44(c=3) :PLO 

T i,498,-cx(c{>4)-(c=4):DRAN 329, 288:DRAN i,8:NEXT:LOCA 

TE 11,13:PRINT *ADIEU":LOCATE 27,13:PRINT "ADIEU" 

5519 FOR i=1 TO 48:1NK 1,6:INK 2,1:INK 3,24:FOR j=1 TO DFB 

TONEXT: INK 1,1:INK 1,24:INK 3,6:FOR j=1 TO 78:NEXT: INK 
1,24:INK 2,6:1NK 3,1:FOR j=1 TO 79:NEXT:NEXT:GOSUB 552 

#:GOT0 5518 


5528 FOR t=1 TO 1588B:NEXT t:CALL )BR 
5538 ? FIN DE LISTING LOTO-13. PRG YF 
5548 " supprise les ligne de commentaire )YG 
5558 ?’ et sauvegarde le programme >YH 
5569 * non : loto-13.prg NV 
557$ ? apres avoir fais delete 1-9 >YK 



































PETITES ANNONCE 


V 


La place réservée aux petites annonces est limi- 
tée. En conséquence, celles-ci passent dans leur 
ordre d'arrivée. Par contre, les petites annonces 
farlelues sont systématiquement rejetées. De même, 
comme il est peu probable qu'il existe des “géné- 
reux donateurs" de matériels ou de logiciels, les 
petites annonces faisant appel à ces philantropes 
ne seront insérées que si la place le permet. 
Seront refusées toutes les annonces visant à ven- 
dre ou échanger des listes ou copies de logiciels 
non garantis “d'origine”, ainsi que toute annonce 
incitant au piratage. 

En conséquence, réfléchissez bien avant d'envoyer 
vos textes. Les petites annonces doivent impérati- 
vement nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un carac- 
tère par case. ; 

Enfin, toute annonce non accompagnée de timbres 
ne sera pas insérée. 
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e Achète livres pour travail assembleur CPC 6128 
L. DELABRE, le Prélatour , les Alérions 54700 
Pont à Mousson 


e Vds AMSTRAD 1512 coul. 2 lect. + joy. + 21 
jeux ( Lemmings, Simcity, Prince of Persia, Agreat 
Courts, F16)+ logs : 4000F . Tél. 56. 71 .12 73 


e Vds CPC 6128 couleur disk + K7 =150 jeux 
sur disk + utils + livres + mag CPC infos, 
Amstrad CPC 3000 F : répond ou tél. après 19h. 
43.85.64.33. 


e Recherche utilisateur de Dart Scanner, pour 
informations: rembourse frais. Jonathan 
Tél.après 17 h. 44.55.37.59 


e Vds PC 200 Amstrad + doc + disquettes + 
Quattro 3500 F PIERRARD 21 ch Seguier 78620 
Letang v 39. 58. 61. 56 


e Dsq 202 K :tb 416 fort. amélioré + 8 prgn 
écrit. lect. sur tout CPC 35 Hornecker 9 r église 
67.20.30. Berschætfolsheim 


e Recherche clavier 6128 Brunet André 93100 
Montreuil Tél. 45.28.44.19 


e Vds 6128 coul. +imp. 2160 + textomat + 
masterfile + scanner Dart. pao livre d'ort 4500F 
Rens. au 79.00.00.66 


e Club jeunes roumains ch. pour CPC 6128, 
souris, joystick disq. 3”, jeux, revues, D. MANEA, 
B.P. 59-30, Bucarest - 70164 


e Pour pratiquer sur CPC 6128 achète livres de 
programmes: jeux ou utilitaires. Tél. (16 .1) 
30.30.2246 


e Vds dk 6128 ou échange unité: 40 à 70F 
compilations: 90 à 140F Gérald. Tél. 97.27.12.77 


e Vds CPC 464 coul. + DDI1 bon état + D7 + K7 + 
joystick + crayon optique + nombreuses revues 
.2500F. Tél. après 18h. au 35.98.34.27 


e Recherche documentation, livres , etc. pour PCW 
8256/85/2. Ecrire M. MADORE André 27, rue de 
l'entrée 56300 Neulliac 


e Cherche  digitaliseur vidéo pour CPC 6128 
GALLET ch. 160 Bd Mortier 75020 Paris 


e Vds Ams. 6128 coul. joystick + doubleur + 50 
disk, kit de téléchargement 4000F. avec revues Tél. 
38.80.70.64 


e Urgent! CPC 6128 coul. + dmp 2160 + Amx + 
Mir. + mag + revues + jeux + util. (tbe) . 5000F. 
COLL Xavier 44, avenue Charles de Gaulle 92200 
Neuilly sur Seine 


e Vds 6128 coul. 140 jx,, revues, man, synthé 


voc. , boite de rangt., magnéto valeur: 8065F Prix: 
5000F. Tél. 96.932.61.85. Demandez Morgan 


e Vds dk 6128 ou échange unité: 40 à 70F 
compilations: 90 à 140F Gérald. Tél. 97.27.12.77 


LES PETITES ANNONCES ET LES MESSAGES 
Attention, vos PA seront mises sur le serveur avant la parution du journal 


e Vds CPC 6128 + monit. coul. +2 joy. + 15 jeux 
+ livres + log. bancaire état neuf (91) .3000F. Tél. 
après 20h. 30.24.2113. 


e Vds 6128 coul. + 1 joystick + 100 jeux +1 
manuel + cassettes vierges +1 logiciel de traitement 
de texte, etc. 3000F. Demander Sandrine. Tél. 
94.91.77.94. 


e Vends CPC 6128 monochrome, avec jeux 3 ma- 
nettes; 1 synthéti seur vol + son logiciel, cordons 
K7, cordons liaisons minitel meuble CPC. Etat 
neuf. Prix très intéressant 2900 F. Pascal Tél. 
37.52.32.16 


e Je suis auteur programme gestion de timbres 
pour CPC 6128 . INGLES Jean 232, rue des Saules 
74950 Scionzier . Tél.50.98.86.92. 


e Amstrad Pc 1512 couleur CGA - 2 drives 51/4 

A+B + disque dur 22 mo + souris + logiciels: PC. 
Shell Norton. Paint. Multiplan. Dbase. Ventura etc. 
+ nombreux jeux 6000F. Daniel DAUBIAN. Tél. 
40.65.73.86 bureau. 


e Urgent! Vds CPC 464 mono, état neuf, moitié 
prix: 1000F. Tél. 44.41.96.10. Demander MR G. 
BAERTS. 


e Vds Amstrad 6128 t. B. e. écran couleur + 
écran protecteur + imprimante DMP + logiciels de 
traitement de texte + pistolet light phaser + jeux + 
manuels. 5000F. T2L. 64.06.0785. 


ANNONCEZ-VOUS ! 
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Mettre ce coupon + 4 timbres à 2,50 F dans une enveloppe. 
Adresser le tout à : SORACOM - La Haie de Pan - 35170 BRUZ 


a 


CPC3 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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ABONNEZ-VOUS 1! 





RES CT 
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D'ECONOMIE 








5% de remise 


sur les produits =. se V£SÉZ 
du catalogue SE. rs VI 4500 
SORACOM Fe . 7 és 
je désire m’abonner à CPC infos pour ATTENTION ! 
OUI, un an au prix de 210 F (11 numéros) SEUL CE BULLETIN 
D'ABONNEMENT 
EST VALABLE 


Nom: Prénom: 











Adresse : 
Me T\TE 
Code postal : — Ville: PAYEZ AVEC 
VOTRE 








obligatoire BANCAIRE 


° Les abonnements ne sont pas rétroactifs O je désire payer avec une carte bancaire Date d'expiration 
+ Envoi par avion + 165F l bi | | Na le En | ER 


Envoyez votre bulletin accompagné du règlement à : Editions SORACOM - Service abonnement - BP 88 - 35170 BRUZ 


Date : Signature | | CARTE 
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TELECHARGEZ 


LES MEILLEURS LOGICIELS PUBLIES DANS AMSTAR & CPC 
ET CPC HORS SERIE 


SE 


ee d 


HR ha 1 "1.12; 


 ——— 


| & in 





Téléchargez les listings publiés dans PLUS 1»]3 s10/0) | 
| | Amstar & CPC et dans | 
bimeshiel PH Sete | d':1e 1077 TT TS 
Il vous suffit pour cela de notre logi- | | A \'/e11'1- 


ciel ARCADES, et d'un câble de liai- 


se que nous pouvons vous | Ter ttrlelN ; 


Sur 36 15 Arcades, des jeux et des 


utilitaires, du son et du graphisme. 


LA COMMUNICATION 
C'EST NOTRE METIER 


Voir bon de commande page 36 


Simple, rapide, efficace : 


<I-RE 


ATTENTION : Seul le câble Arcades fonctionne avec le logiciel de téléchargement. 





AMAR 22 
| 








… C/ £ 2 CA 
g |; - | 
(ANNEE TES £ = s =i ——| 
RE = 180 F + port 
LL, TE + 
OO) ) ANSE SSS P 
F LS AO RE 





155 F + port] = 
po | SK 


jé 125 F + port 





175 F + port| 160 F + port 
QT | (11 

D. ur 4" 
102 F + port 102 F + port 190 F + port 


Module serrure 


{bien indiquer la boîte) 


155 F + port 





Nouveau ! les mêmes en noir 








Port + 25 F par article 
port + 40 F par article pour l'étranger 
Voir bon de commande page 36 





